OFFSET
1,1
COMMENTS
The asymptotic density of this sequence is Sum_{k in A001969} (1/zeta(k+1) - 1/zeta(k)) = 0.12101890210392912747... .
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
evilQ[n_] := EvenQ[DigitCount[n, 2, 1]]; q[n_] := evilQ[Max[FactorInteger[n][[;; , 2]]]]; Select[Range[500], q]
PROG
(PARI) is(n) = n > 1 && !(hammingweight(vecmax(factor(n)[, 2])) % 2);
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Amiram Eldar, Jul 12 2024
STATUS
approved