OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[210], # == 1 || EvenQ[Max[FactorInteger[#][[;; , 2]]]] &]
PROG
(PARI) lista(kmax) = for(k = 1, kmax, if(k == 1 || !(vecmax(factor(k)[, 2])%2), print1(k, ", ")));
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Amiram Eldar, Jan 04 2024
STATUS
approved