|
|
A127646
|
|
a(n) is the product of first n terms of sequence A127644.
|
|
5
|
|
|
3, 18, 162, 2916, 34992, 559872, 4478976, 107495424, 3439853568, 116955021312, 3508650639360, 168415230689280, 2526228460339200, 2526228460339200, 35367198444748800, 70734396889497600, 1202484747121459200
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|