|
|
A087315
|
|
a(n) = Product_{k=1..n} prime(k)^prime(n-k+1).
|
|
6
|
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
EXAMPLE
|
a(3) = 2^5*3^3*5^2 = 21600.
|
|
MAPLE
|
seq(product(ithprime(k)^ithprime(n-k+1), k=1..n), n=0..10);
|
|
MATHEMATICA
|
Table[Product[Prime[k]^Prime[n - k + 1], {k, 1, n}], {n, 0, 10}] (* G. C. Greubel, Oct 14 2018 *)
|
|
PROG
|
(Sage) [prod(nth_prime(i)^nth_prime(k-i+1) for i in (1..k)) for k in (0..10)] # Giuseppe Coppoletta, Nov 03 2014
(PARI) for(n=0, 10, print1(prod(k=1, n, prime(k)^prime(n-k+1)), ", ")) \\ G. C. Greubel, Oct 14 2018
(Magma) [1] cat [(&*[NthPrime(k)^(NthPrime(n-k+1)): k in [1..n]]): n in [1..10]]; // G. C. Greubel, Oct 14 2018
|
|
CROSSREFS
|
Cf. A006939, A002110, A025487, A004394, A002093, A002182, A055932, A025487, A089247, A071364, A097320, A046523, A056166, A114129, A053810.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|