A098139 a(n) = 2^p + 3^p + 5^p + 7^p where p = prime(n).

87, 503, 20207, 903983, 2026334063, 98111316047, 233393582711567, 11417969834487023, 27380668363187561903, 3220092020396733736776527, 157780038648336559551388463, 18562188680594166420755526825167

Offset

1,1

Links

Table of n, a(n) for n=1..12.

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

Adjacent sequences: A098136 A098137 A098138 * A098140 A098141 A098142

Keyword

nonn

Author

Parthasarathy Nambi, Sep 27 2004

Extensions

More terms from Stefan Steinerberger, Feb 28 2006

Status

approved