intero = function (x)
floor(x)==x

for (a in (-7):7) for (b in (a+1):7)
  for (c in (b+1):7) for (d in (c+1):7)
{e=-a-b-c-d; cen=c(a,b,c,d,e)
if (intero(a)&&intero(b)&&intero(c)
  &&intero(d)&&intero(e))
{r=Mv.lun(cen); if (!intero(r)) next;
if (is.element(r,
  c(2,5,10,20,25,40,50,100)))
cat(a,' ',b,' ',c,' ',d,' ',e,'\n')}}