OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
Clear[lst, n, a, b]; a=0; lst={}; Do[a+=Prime[n]; b=a-Prime[n+1]; If[PrimeQ[b], AppendTo[lst, b]], {n, 7!}]; lst
PROG
(PARI) v=List(); s=2; p=2; forprime(q=3, 1e6, if(isprime(s-q), listput(v, s-q)); s+=q; p=q); v=Vec(v) \\ Charles R Greathouse IV, Feb 24 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Oct 13 2009
STATUS
approved