OFFSET
1,2
COMMENTS
Essentially the same as A147819. R. J. Mathar, Jun 25 2012
MATHEMATICA
Select[Range[156], ! PrimeQ[#] && (PrimeQ[# - 1] || PrimeQ[# + 1]) &] (* T. D. Noe, Apr 18 2012 *)
Join[{1}, Flatten[#+{-1, 1}&/@Prime[Range[3, 40]]]//Union] (* Harvey P. Dale, Oct 22 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, Apr 17 2012
STATUS
approved