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