OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
seq[kmax_] := Module[{m = 1, s = {}}, Do[If[Divisible[k, DigitCount[m, 2, 1]], AppendTo[s, k]]; While[m++; OddQ[IntegerExponent[m, 2]]], {k, 1, kmax}]; s]; seq[140]
PROG
(PARI) lista(kmax) = {my(m = 1); for(k = 1, kmax, if( !(k % sumdigits(m, 2)), print1(k, ", ")); until(valuation(m, 2)%2 == 0, m++)); }
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Amiram Eldar, Jul 14 2023
STATUS
approved