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

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

Intersection of A000069 and A005117.

Sequence in context: A136734 A113544 A045173 * A201362 A063976 A064000

Adjacent sequences: A230045 A230046 A230047 * A230049 A230050 A230051

Keyword

nonn,base

Author

Irina Gerasimova, Oct 06 2013

Extensions

Corrected by R. J. Mathar, Oct 06 2013

Status

approved