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

%I #11 Sep 21 2017 04:23:02

%S 3,18,162,2916,34992,559872,4478976,107495424,3439853568,116955021312,

%T 3508650639360,168415230689280,2526228460339200,2526228460339200,

%U 35367198444748800,70734396889497600,1202484747121459200

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

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

%H Michael De Vlieger, <a href="/A127646/b127646.txt">Table of n, a(n) for n = 1..449</a>

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

%Y Cf. A127644, A127645.

%K nonn

%O 1,1

%A _Leroy Quet_, Jan 22 2007

%E Extended by _Ray Chandler_, Jan 22 2007