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
KEYWORD
nonn
AUTHOR
Jason Earls, Jan 05 2002
STATUS
approved