OFFSET
0,2
COMMENTS
For n >= 3, a(n) ends in 250 or 750. - Jianing Song, Jan 27 2019
LINKS
Gheorghe Coserea, Table of n, a(n) for n = 0..50
FORMULA
a(0) = 1, a(n+1) = a(n)*{prime(n+1)^(n+1)}.
MAPLE
seq(mul(ithprime(i)^i, i=1..n), n=0..13);
MATHEMATICA
Table[Times@@Table[Prime[i]^i, {i, n}], {n, 10}] (* Alonso del Arte, Sep 30 2011 *)
Join[{1}, FoldList[Times, Table[Prime[i]^i, {i, 10}]]] (* Harvey P. Dale, Dec 16 2022 *)
PROG
(PARI)
a(n) = { if (n <= 0, return(1)); prod(i = 1, n, prime(i)^i); }
vector(11, i, a(i-1)) \\ Gheorghe Coserea, Aug 24 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Oct 20 2002
EXTENSIONS
More terms from Sascha Kurz, Jan 22 2003
STATUS
approved