OFFSET
1,3
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
f[n_] := Module[{e = If[n == 1, 0, Max[FactorInteger[n][[;; , 2]]]]}, If[e == 2^IntegerExponent[e, 2], e, Nothing]]; Array[f, 150]
PROG
(PARI) lista(kmax) = {my(e); for(k = 2, kmax, e = vecmax(factor(k)[, 2]); if(e >> valuation(e, 2) == 1, print1(e, ", "))); }
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Amiram Eldar, Jul 04 2024
STATUS
approved