A230048 - OEIS

A230048

Squarefree odious numbers.

1, 2, 7, 11, 13, 14, 19, 21, 22, 26, 31, 35, 37, 38, 41, 42, 47, 55, 59, 61, 62, 67, 69, 70, 73, 74, 79, 82, 87, 91, 93, 94, 97, 103, 107, 109, 110, 115, 118, 122, 127, 131, 133, 134, 137, 138, 143, 145, 146, 151, 155, 157, 158, 161, 167, 173, 174, 179, 181, 182, 185, 186, 191, 193, 194, 199

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

COMMENTS

Odious numbers that are squarefree numbers.

LINKS

Amiram Eldar, Table of n, a(n) for n = 1..10000

MATHEMATICA

odiousQ[n_] := OddQ @ DigitCount[n, 2][[1]]; Select[Range[200], odiousQ[#] && SquareFreeQ[#] &] (* Amiram Eldar, Dec 10 2019 *)

PROG

(PARI) is(n)=hammingweight(n)%2 && issquarefree(n) \\ Charles R Greathouse IV, Mar 18 2014

CROSSREFS