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