OFFSET
1,1
COMMENTS
Partial sums of A078422. - Michel Marcus, Jan 26 2016
EXAMPLE
a(3) = 3^2+5^3+7^5 = 16941.
MATHEMATICA
Table[Sum[Prime[k+1]^Prime[k], {k, 1, n}], {n, 1, 12}] (* Vaclav Kotesovec, Jan 25 2016 *)
PROG
(Sage) [sum(nth_prime(i+1)^nth_prime(i) for i in [1..n]) for n in [1..15]] # Tom Edgar, Jan 25 2016
(Magma) [&+[NthPrime(k+1)^NthPrime(k): k in [1..n]]: n in [1..12]]; // Vincenzo Librandi, Jan 26 2016
(PARI) a(n) = sum(k=1, n, prime(k+1)^prime(k)); \\ Michel Marcus, Jan 26 2016
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Emre APARI, Jan 25 2016
STATUS
approved