A066525 Primes of form Sum_{k=1..n} prime(k)^3.

503, 15803, 35287433, 106954091, 3024050339, 3661922443, 7223017657, 10412687891, 11190761311, 12004517137, 25886083477, 36501131837, 40690306883, 47519791211, 49942559767, 63631102747, 84230864741

Offset

1,1

Links

Harry J. Smith, Table of n, a(n) for n = 1..500

G. L. Honaker Jr. and C. Caldwell, Prime Curios!

Maple

P(n)=sum(k=1, n, prime(k)^3) for(n=1, 1000, if(isprime(P(n)), print1(P(n), ", ")))

Mathematica

Select[Accumulate[Prime[Range[250]]^3], PrimeQ] (* Harvey P. Dale, Jan 21 2013 *)

Prog

(PARI) { n=0; s=0; for (k=1, 10^10, s+=prime(k)^3; if (isprime(s), write("b066525.txt", n++, " ", s); if (n==500, return)) ) } \\ Harry J. Smith, Feb 21 2010

Crossrefs

Sequence in context: A179172 A133525 A361252 * A043304 A045212 A262873

Adjacent sequences: A066522 A066523 A066524 * A066526 A066527 A066528

Keyword

nonn

Author

Jason Earls, Jan 05 2002

Status

approved