OFFSET
1,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
MATHEMATICA
okQ[n_]:=Length[Select[Drop[Range[n-3, n+3], {4}], PrimeQ]]==2; Join[{0, 1}, Select[Range[0, 200], okQ]] (* Harvey P. Dale, Jun 29 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Nov 18 2009
EXTENSIONS
Corrected (14 removed, 58, 62, 74 inserted, etc.) by R. J. Mathar, Jun 04 2010
STATUS
approved