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