OFFSET
0,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 0..111
MATHEMATICA
f[p_, e_] := 2^DigitCount[e, 2, 1] - 1; d[1] = 0; d[n_] := Plus @@ f @@@ FactorInteger[n]; seq[len_, nmax_] := Module[{s = Table[0, {len}], k = 0, n = 1, i}, While[k < len && n < nmax, i = d[n] + 1; If[i <= len && s[[i]] == 0, k++; s[[i]] = n]; n++]; TakeWhile[s, # > 0 &]]; seq[15, 10^6]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Nov 12 2021
STATUS
approved