OFFSET
1,1
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..76
FORMULA
Partial sums of A051674. - R. J. Mathar, Apr 26 2007
EXAMPLE
a(3) = 2^2 + 3^3 + 5^5 = 3156.
MATHEMATICA
P3[n_] := Sum[Prime[i]^Prime[i], {i, 1, n}]; Table[P3[n], {n, 1, 10}] (* Vladimir Joseph Stephan Orlovsky, Apr 29 2008 *)
Accumulate[#^#&/@Prime[Range[10]]] (* Harvey P. Dale, Apr 10 2015 *)
PROG
(PARI) a=n=0; forprime (p=2, 383, write("b061789.txt", n++, " ", a+=p^p)) \\ Harry J. Smith, Jul 28 2009
(Python)
from itertools import accumulate, count, islice
from sympy import prime
def A061789_gen(): # generator of terms
yield from accumulate(((p:=prime(k))**p for k in count(1)))
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Amarnath Murthy, May 25 2001
EXTENSIONS
Corrected and extended by Jason Earls, May 26 2001
STATUS
approved