login
a(n) = Product_{i=1..n} prime(i)^i.
38

%I #26 Dec 16 2022 17:37:42

%S 1,2,18,2250,5402250,870037764750,4199506113235182750,

%T 1723219765760312626547490750,29266411525287522788837599332989370750,

%U 52713275010243038997421106186697438702252144407250,22176856087751973465466098269669474342964368337745368642450857250

%N a(n) = Product_{i=1..n} prime(i)^i.

%C For n >= 3, a(n) ends in 250 or 750. - _Jianing Song_, Jan 27 2019

%H Gheorghe Coserea, <a href="/A076954/b076954.txt">Table of n, a(n) for n = 0..50</a>

%F a(0) = 1, a(n+1) = a(n)*{prime(n+1)^(n+1)}.

%p seq(mul(ithprime(i)^i,i=1..n),n=0..13);

%t Table[Times@@Table[Prime[i]^i, {i, n}], {n, 10}] (* _Alonso del Arte_, Sep 30 2011 *)

%t Join[{1},FoldList[Times,Table[Prime[i]^i,{i,10}]]] (* _Harvey P. Dale_, Dec 16 2022 *)

%o (PARI)

%o a(n) = { if (n <= 0, return(1)); prod(i = 1, n, prime(i)^i); }

%o vector(11, i, a(i-1)) \\ _Gheorghe Coserea_, Aug 24 2015

%Y Cf. A076955, A006939.

%Y Partial products of A062457. - _Michel Marcus_, Jan 28 2019

%K nonn

%O 0,2

%A _Amarnath Murthy_, Oct 20 2002

%E More terms from _Sascha Kurz_, Jan 22 2003