A230124 Squarefree evil numbers.

3, 5, 6, 10, 15, 17, 23, 29, 30, 33, 34, 39, 43, 46, 51, 53, 57, 58, 65, 66, 71, 77, 78, 83, 85, 86, 89, 95, 101, 102, 105, 106, 111, 113, 114, 119, 123, 129, 130, 139, 141, 142, 149, 154, 159, 163, 165, 166, 170, 177, 178, 183, 187, 190, 195, 197, 201, 202, 209, 210, 215

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Mathematica

evilQ[n_] := EvenQ @ DigitCount[n, 2][[1]]; Select[Range[200], evilQ[#] && SquareFreeQ[#] &] (* Amiram Eldar, Dec 10 2019 *)

Prog

(PARI) is(n)=hammingweight(n)%2==0 && issquarefree(n) \\ Charles R Greathouse IV, Mar 18 2014

Crossrefs

Intersection of A001969 and A005117.

Sequence in context: A112926 A176747 A238488 * A027627 A194466 A270416

Adjacent sequences: A230121 A230122 A230123 * A230125 A230126 A230127

Keyword

nonn,base

Author

Irina Gerasimova, Oct 10 2013

Extensions

Corrected by R. J. Mathar, Oct 12 2013

Status

approved