OFFSET
1,1
LINKS
G. L. Honaker, Jr. and Chris Caldwell, Prime Curios! 3618
Carlos Rivera, Puzzle 978. Improve this curio, Prime Puzzles and Problems Connection.
MATHEMATICA
Module[{nn=300000, prs, m1, m2, m3}, prs=Prime[Range[nn]]; m1=Accumulate[ prs]; m2 = Accumulate[prs^2]; m3=Accumulate[prs^3]; Position[Thread[ {m1, m2, m3}], _? (Total[ Boole[ PrimeQ[#]]]==3&)]]//Flatten (* Harvey P. Dale, Jul 28 2021 *)
PROG
(PARI) s=0; t=0; u=0; n=0; forprime(p=2, 1e6, s+=p; t+=p^2; u+=p^3; n++; if(isprime(u) && isprime(t) && isprime(s), print1(n, ", ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Marcus, Nov 16 2019
EXTENSIONS
Name (description) modified by Harvey P. Dale, Jul 28 2021
STATUS
approved