A087480 Sum of all the primes raised to their corresponding powers.

2, 11, 136, 2537, 163588, 4990397, 415329070, 17398892111, 1818551553574, 422525784853775, 25831002681258606, 6608783008521293887, 931711885323534923208, 74817069229462038688657

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..299

Formula

a(n) = a(n-1) + prime(n)^n where prime(n) is the n-th prime.

Example

a(4) = 2^1 + 3^2 + 5^3 + 7^4 = 2 + 9 + 125 + 2401 = 2537.

Maple

ListTools:-PartialSums( [seq(ithprime(i)^i, i=1..100)]); # Robert Israel, Nov 09 2015

Mathematica

a[1] = 2; a[n_] := a[n - 1] + Prime[n]^n; Table[a[n], {n, 15}] (* Carlos Eduardo Olivieri, Nov 09 2015 *)
Accumulate[Table[Prime[n]^n, {n, 20}]] (* Harvey P. Dale, May 11 2019 *)

Prog

(PARI) a(n) = sum(i=1, n, prime(i)^i); \\ Michel Marcus, Sep 05 2013

Crossrefs

Partial sums of A062457.

Sequence in context: A330638 A296571 A077544 * A060059 A365357 A295811

Adjacent sequences: A087477 A087478 A087479 * A087481 A087482 A087483

Keyword

easy,nonn

Author

Andy Edwards (AndynGen(AT)aol.com), Sep 09 2003

Extensions

Corrected and extended by Ray Chandler, Sep 14 2003

Status

approved