OFFSET
1,1
EXAMPLE
a(1) = 2^2 + 3^2 + 5^2 + 7^2 = 87.
MATHEMATICA
Table[2^Prime[n] + 3^Prime[n] + 5^Prime[n] + 7^Prime[n], {n, 1, 15}] (* Stefan Steinerberger, Feb 28 2006 *)
Table[Total[Prime[Range[4]]^Prime[n]], {n, 20}] (* Harvey P. Dale, May 08 2012 *)
PROG
(PARI) main(m)=forprime(p=2, m, print1(2^p + 3^p + 5^p + 7^p, ", ")) \\ Anders Hellström, Aug 26 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Parthasarathy Nambi, Sep 27 2004
EXTENSIONS
More terms from Stefan Steinerberger, Feb 28 2006
STATUS
approved