# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a230048 Showing 1-1 of 1 %I A230048 #17 Mar 15 2024 02:25:43 %S A230048 1,2,7,11,13,14,19,21,22,26,31,35,37,38,41,42,47,55,59,61,62,67,69,70, %T A230048 73,74,79,82,87,91,93,94,97,103,107,109,110,115,118,122,127,131,133, %U A230048 134,137,138,143,145,146,151,155,157,158,161,167,173,174,179,181,182,185,186,191,193,194,199 %N A230048 Squarefree odious numbers. %C A230048 Odious numbers that are squarefree numbers. %H A230048 Amiram Eldar, Table of n, a(n) for n = 1..10000 %t A230048 odiousQ[n_] := OddQ @ DigitCount[n, 2][[1]]; Select[Range[200], odiousQ[#] && SquareFreeQ[#] &] (* _Amiram Eldar_, Dec 10 2019 *) %o A230048 (PARI) is(n)=hammingweight(n)%2 && issquarefree(n) \\ _Charles R Greathouse IV_, Mar 18 2014 %Y A230048 Intersection of A000069 and A005117. %K A230048 nonn,base %O A230048 1,2 %A A230048 _Irina Gerasimova_, Oct 06 2013 %E A230048 Corrected by _R. J. Mathar_, Oct 06 2013 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE