|
|
A215739
|
|
Even and odd composite squarefree numbers, interlaced.
|
|
1
|
|
|
6, 15, 10, 21, 14, 33, 22, 35, 26, 39, 30, 51, 34, 55, 38, 57, 42, 65, 46, 69, 58, 77, 62, 85, 66, 87, 70, 91, 74, 93, 78, 95, 82, 105, 86, 111, 94, 115, 102, 119, 106, 123, 110, 129, 114, 133, 118, 141, 122, 143, 130, 145, 134, 155, 138, 159, 142, 161, 146, 165
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Module[{nn=200, csfn, od, ev, len}, csfn=Select[Range[nn], CompositeQ[ #] && SquareFreeQ[ #]&]; od=Select[csfn, OddQ]; ev=Select[csfn, EvenQ]; len=Min[ Length[ od], Length[ev]]; Riffle[Take[ev, len], Take[od, len]]] (* Harvey P. Dale, Nov 20 2022 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|