login
A230048
Squarefree odious numbers.
1
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
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
KEYWORD
nonn,base
AUTHOR
Irina Gerasimova, Oct 06 2013
EXTENSIONS
Corrected by R. J. Mathar, Oct 06 2013
STATUS
approved