OFFSET
0,1
COMMENTS
Conjectured to be a permutation of the natural numbers.
MATHEMATICA
f[lst_List] := Block[{k = 1, s = Plus @@ lst, p = Times @@ lst}, While[ MemberQ[lst, k] || Mod[p*k, s + k] > 0, k++]; Append[ lst, k]]; Nest[f, {3}, 75] (* Robert G. Wilson v, Jan 19 2015 *)
PROG
(PARI) v=[4]; print1(4, ", "); 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); print1(n, ", "); n=0); n++)
CROSSREFS
KEYWORD
nonn
AUTHOR
Derek Orr, Jan 17 2015
EXTENSIONS
Offset corrected by N. J. A. Sloane, Jun 16 2021
STATUS
approved