OFFSET
1,2
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..2000
FORMULA
MATHEMATICA
b[1] = 1; b[n_] := b[n] = Count[Array[s, n - 1], s[n - 1]]; s[n_] := s[n] = DigitCount[b[n], 2, 1]; seq[len_, nmax_] := Module[{t = Table[0, {len}], c = 0, n = 1, i}, While[c < len && n < nmax, i = b[n]; If[t[[i]] == 0, c++; t[[i]] = n]; n++]; t]; seq[100, 1000] (* Amiram Eldar, Jul 27 2023 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Feb 05 2008
STATUS
approved