OFFSET
2,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 2..39
MATHEMATICA
evQ[n_] := EvenQ[DigitCount[n, 2, 1]]; evExp[n_] := Module[{e = 1, p = n^2}, If[! evQ[n], While[evQ[p], p *= n; e++]]; e]; seq[nmax_] := Module[{e, emax = 1, n = 3, s = {}}, Do[e = evExp[n]; If[e > emax, s = Join[s, ConstantArray[n, e - emax]]; emax = e], {n, 3, nmax, 2}]; s]; seq[11000] (* Amiram Eldar, Aug 03 2023 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vladimir Shevelev and Peter J. C. Moses, Oct 21 2013
EXTENSIONS
a(27)-a(34) from Amiram Eldar, Aug 03 2023
STATUS
approved