OFFSET
1,1
COMMENTS
Numbers n such that A034387(n) is prime.
LINKS
Jayanta Basu, Table of n, a(n) for n = 1..1000
EXAMPLE
8 is in the sequence since 2+3+5+7=17 is prime.
MATHEMATICA
t = {}; s = 0; Do[If[PrimeQ[n], s += n]; If[PrimeQ[s], AppendTo[t, n]], {n, 625}]; t
Position[Accumulate[Table[If[PrimeQ[n], n, 0], {n, 700}]], _?PrimeQ]//Flatten (* Harvey P. Dale, Apr 02 2024 *)
PROG
(Magma) [n: n in [1..700] | IsPrime(s) where s is &+PrimesUpTo(n)]; // Bruno Berselli, Aug 10 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Jayanta Basu, Aug 10 2013
STATUS
approved