login
A098139
a(n) = 2^p + 3^p + 5^p + 7^p where p = prime(n).
0
87, 503, 20207, 903983, 2026334063, 98111316047, 233393582711567, 11417969834487023, 27380668363187561903, 3220092020396733736776527, 157780038648336559551388463, 18562188680594166420755526825167
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
Sequence in context: A033631 A183724 A221312 * A359341 A297509 A259510
KEYWORD
nonn
AUTHOR
Parthasarathy Nambi, Sep 27 2004
EXTENSIONS
More terms from Stefan Steinerberger, Feb 28 2006
STATUS
approved