|
%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
|
