|
%I #16 Dec 10 2019 04:14:23
%S 3,5,6,10,15,17,23,29,30,33,34,39,43,46,51,53,57,58,65,66,71,77,78,83,
%T 85,86,89,95,101,102,105,106,111,113,114,119,123,129,130,139,141,142,
%U 149,154,159,163,165,166,170,177,178,183,187,190,195,197,201,202,209,210,215
%N Squarefree evil numbers.
%H Amiram Eldar, <a href="/A230124/b230124.txt">Table of n, a(n) for n = 1..10000</a>
%t evilQ[n_] := EvenQ @ DigitCount[n, 2][[1]]; Select[Range[200], evilQ[#] && SquareFreeQ[#] &] (* _Amiram Eldar_, Dec 10 2019 *)
%o (PARI) is(n)=hammingweight(n)%2==0 && issquarefree(n) \\ _Charles R Greathouse IV_, Mar 18 2014
%Y Intersection of A001969 and A005117.
%K nonn,base
%O 1,1
%A _Irina Gerasimova_, Oct 10 2013
%E Corrected by _R. J. Mathar_, Oct 12 2013
|
