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