OFFSET
1,1
MATHEMATICA
OddEvenQ[a_List] := Module[{b = Mod[a, 2]}, Union[b[[1 ;; ;; 2]]] == {1} && Union[b[[2 ;; ;; 2]]] == {0}]; Select[2 + 4 Range[300], ! OddEvenQ[Divisors[#]] &] (* T. D. Noe, Aug 04 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, Aug 04 2011
STATUS
approved