|
|
A076954
|
|
a(n) = Product_{i=1..n} prime(i)^i.
|
|
38
|
|
|
1, 2, 18, 2250, 5402250, 870037764750, 4199506113235182750, 1723219765760312626547490750, 29266411525287522788837599332989370750, 52713275010243038997421106186697438702252144407250, 22176856087751973465466098269669474342964368337745368642450857250
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
For n >= 3, a(n) ends in 250 or 750. - Jianing Song, Jan 27 2019
|
|
LINKS
|
|
|
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); }
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|