OFFSET
1,2
COMMENTS
PROG
(PARI) b(r)=v=[r]; n=1; while(n<100, p=prod(i=1, #v, v[i]); if(p*n\(vecsum(v)+n)==p*n/(vecsum(v)+n)&&!vecsearch(vecsort(v), n), v=concat(v, n); n=0); n++); #v
r=1; while(r<100, if(b(r)<50, print1(r, ", ")); r++)
CROSSREFS
KEYWORD
nonn
AUTHOR
Derek Orr, Jan 17 2015
STATUS
approved