A230124 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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