OFFSET
1,1
EXAMPLE
15-2 = 13, 21-2 = 19, 45-2 = 43, ...
MATHEMATICA
Select[s=0; Table[n*(n+1)/2, {n, 6!}], PrimeQ[ #-2]&]
Select[Accumulate[Range[200]], PrimeQ[#-2]&] (* Harvey P. Dale, Apr 09 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Dec 11 2009
STATUS
approved