A127646 a(n) is the product of first n terms of sequence A127644.

3, 18, 162, 2916, 34992, 559872, 4478976, 107495424, 3439853568, 116955021312, 3508650639360, 168415230689280, 2526228460339200, 2526228460339200, 35367198444748800, 70734396889497600, 1202484747121459200

Offset: 1

Author

Leroy Quet, Jan 22 2007

Keywords

• nonn

Comments

a(n) is divisible by A127645(n).

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..449

Crossrefs

Cf. A127644, A127645.

Programs

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 *)

Extensions

Extended by Ray Chandler, Jan 22 2007