login
a(n) = product[k=0..n] P(k), where P(k) is the smallest prime > 3*n. a(n) = product[k=0..n] A118751(k).
4

%I #8 Mar 11 2014 04:56:57

%S 2,10,70,770,10010,170170,3233230,74364290,2156564410,62540367890,

%T 1938751404590,71733801969830,2654150672883710,108820177588232110,

%U 4679267636293980730,219925578905817094310,11656055682008305998430

%N a(n) = product[k=0..n] P(k), where P(k) is the smallest prime > 3*n. a(n) = product[k=0..n] A118751(k).

%C Analogous to A118456 a(n) = product{k=1..n} P(k), where P(k) is the smallest prime >= k.

%H Vincenzo Librandi, <a href="/A118752/b118752.txt">Table of n, a(n) for n = 0..200</a>

%t Rest[FoldList[Times,1,Table[NextPrime[3n],{n,0,20}]]] (* _Harvey P. Dale_, Mar 09 2014 *)

%Y Cf. A020482, A049653, A060266-A060268, A060264, A060265, A060308, A118455, A118456, A118748-51.

%K easy,nonn

%O 0,1

%A _Jonathan Vos Post_, Apr 29 2006

%E Definition corrected by _Harvey P. Dale_, Mar 09 2014