OFFSET
1,2
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..5000
MATHEMATICA
Block[{a = {1}, b = {1}, k, n}, Do[k = DigitCount[i, 2, 1]; n = Count[b, m_ /; k == m]; AppendTo[a, n]; AppendTo[b, DigitCount[n, 2, 1]], {i, 2^12}]; Union@ FoldList[Max, a]] (* Michael De Vlieger, Sep 05 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jan 17 2006
EXTENSIONS
Corrected by T. D. Noe, Oct 25 2006
Offset corrected by Michael De Vlieger, Sep 06 2017
STATUS
approved