OFFSET
1,1
COMMENTS
a(n) is divisible by A127645(n).
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..449
MATHEMATICA
f[l_List] := Block[{k = 1, s = Plus @@ l, p = Times @@ l}, While[Or[MemberQ[l, k], Mod[k p, k + s] > 0], k++]; Append[l, k]]; FoldList[Times, Nest[f, {3}, 17]] (* Michael De Vlieger, Sep 20 2017, after Ray Chandler at A127644 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Jan 22 2007
EXTENSIONS
Extended by Ray Chandler, Jan 22 2007
STATUS
approved