OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
MATHEMATICA
q=3; lst={}; s=0; Do[s+=n/q; If[Floor[s]==s, If[PrimeQ[2*s-1]&&PrimeQ[2*s+1], AppendTo[lst, s]]], {n, 0, 8!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 12 2009
STATUS
approved