|
|
A115212
|
|
Record values in A113504.
|
|
3
|
|
|
1, 2, 3, 5, 8, 13, 28, 49, 76, 160, 174, 189, 224, 228, 232, 242, 246, 293, 306, 350, 353, 354, 355, 362, 363, 366, 376, 392, 393, 394, 395, 408, 434, 435, 437, 439, 455, 486, 487, 489, 492, 503, 523, 546, 586, 671, 673, 678, 692, 717, 746, 821, 858, 859, 861
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|