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
Keywords
Links
- Harry J. Smith, Table of n, a(n) for n = 1..500
- G. L. Honaker Jr. and C. Caldwell, Prime Curios!
Programs
-
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 *)
-
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