OFFSET
1,1
MATHEMATICA
Flatten[Table[If[OddQ[n - 1] && PrimeQ[n - 1] == False && PrimeQ[n + 1] == False, {{n - 1}, {n + 1}}, {}], {n, 2, 200}]]
Select[Partition[Range[1, 201, 2], 2, 1], NoneTrue[#, PrimeQ]&]//Flatten (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 09 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, May 20 2007
STATUS
approved