OFFSET
1,2
MATHEMATICA
Module[{nn=150, comps, odds, evens, len}, comps=Complement[Range[nn], Prime[Range[ PrimePi[nn]]]]; odds=Select[ comps, OddQ]; evens=Select[comps, EvenQ]; len=Min[ Length[odds], Length[evens]]; Riffle[Take[odds, len], Take[evens, len]]] (* Harvey P. Dale, Feb 19 2013 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Amarnath Murthy, Sep 08 2002
EXTENSIONS
More terms from Harvey P. Dale, Feb 19 2013
STATUS
approved