OFFSET
1,1
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..5000
MATHEMATICA
With[{upto=10^4}, Select[Accumulate[Prime[Range[upto]]], PrimeQ[#-1]&&PrimeQ[#+1]&]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Paolo Xausa, Oct 04 2023
STATUS
approved