%I #14 Apr 03 2023 10:36:10

%S 503,15803,35287433,106954091,3024050339,3661922443,7223017657,

%T 10412687891,11190761311,12004517137,25886083477,36501131837,

%U 40690306883,47519791211,49942559767,63631102747,84230864741

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

%H Harry J. Smith, <a href="/A066525/b066525.txt">Table of n, a(n) for n = 1..500</a>

%H G. L. Honaker Jr. and C. Caldwell, <a href="https://t5k.org/curios/page.php?short=503">Prime Curios!</a>

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

%t Select[Accumulate[Prime[Range[250]]^3],PrimeQ] (* _Harvey P. Dale_, Jan 21 2013 *)

%o (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

%K nonn

%O 1,1

%A _Jason Earls_, Jan 05 2002