OFFSET
1,1
COMMENTS
18-1=17;18+1=19,...
MATHEMATICA
q=2; lst={}; s=0; Do[s+=n/q; If[Floor[s]==s, If[PrimeQ[s-1]&&PrimeQ[s+1], AppendTo[lst, s]]], {n, 0, 8!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 12 2009
STATUS
approved