login
A066525
Primes of form Sum_{k=1..n} prime(k)^3.
8
503, 15803, 35287433, 106954091, 3024050339, 3661922443, 7223017657, 10412687891, 11190761311, 12004517137, 25886083477, 36501131837, 40690306883, 47519791211, 49942559767, 63631102747, 84230864741
OFFSET
1,1
LINKS
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
KEYWORD
nonn
AUTHOR
Jason Earls, Jan 05 2002
STATUS
approved