OFFSET
1,1
MATHEMATICA
Module[{nn=100, ecs, ocs}, ocs=Select[Range[1, nn, 2], CompositeQ]; ecs = Take[ Range[ 4, nn, 2], Length[ocs]]; Riffle[ocs, ecs]] (* Harvey P. Dale, Apr 03 2017 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Amarnath Murthy, Sep 08 2002
STATUS
approved