OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
G. L. Honaker, Jr. and Chris Caldwell, Prime Curios! 3618
Carlos Rivera, Puzzle 978. Improve this curio, Prime Puzzles and Problems Connection.
MATHEMATICA
With[{nn=9100}, Position[Thread[{Accumulate[Prime[Range[nn]]], Accumulate[ Prime[ Range[ nn]]^2]}], _?(PrimeQ[ #[[1]]]&&PrimeQ[#[[2]]]&), 1, Heads-> False]]//Flatten (* Harvey P. Dale, Aug 18 2020 *)
PROG
(Magma) a013916:=func<n|IsPrime(&+[NthPrime(k): k in [1..n]])>; a098561:=func<n|IsPrime(&+[NthPrime(k)^2: k in [1..n]])>; [n: n in [1..10000]|a013916(n) and a098561(n)]; // Bruno Berselli, Dec 28 2011
(PARI) s=0; t=0; n=0; forprime(p=2, 1e6, s+=p; t+=p^2; n++; if(isprime(t)&&isprime(s), print1(n", "))) \\ Charles R Greathouse IV, Dec 28 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Tanya Khovanova, Dec 13 2006
EXTENSIONS
More terms from Bruno Berselli, Dec 28 2011
Definition rephrased by Harvey P. Dale, Aug 18 2020
STATUS
approved