OFFSET
1,2
LINKS
FORMULA
MATHEMATICA
evilQ[n_] := EvenQ[DigitCount[n, 2, 1]]; s[n_] := Module[{e = Max[FactorInteger[n][[;; , 2]]]}, If[evilQ[e], e, Nothing]]; s[1] = 0; Array[s, 1000]
PROG
(PARI) lista(kmax) = {my(e); print1(0, ", "); for(k = 2, kmax, e = vecmax(factor(k)[, 2]); if(!(hammingweight(e) % 2), print1(e, ", "))); }
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Amiram Eldar, Aug 31 2024
STATUS
approved