A115213 Where record values occur in A113504.

0, 2, 4, 8, 16, 32, 64, 128, 256, 512, 768, 1024, 1025, 1040, 1056, 1088, 1152, 1280, 1536, 2048, 2051, 2060, 2096, 2113, 2120, 2128, 2144, 2177, 2178, 2192, 2208, 2240, 2305, 2312, 2320, 2336, 2432, 2561, 2564, 2568, 2576, 2592, 2624, 2688, 2816, 3073

Offset

1,2

Comments

A115212(n) = A113504(a(n)).

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}]; Map[-1 + FirstPosition[a, #][[1]] &, Union@ FoldList[Max, a]]] (* Michael De Vlieger, Sep 05 2017 *)

Crossrefs

Sequence in context: A072049 A281938 A242350 * A009714 A051535 A008862

Adjacent sequences: A115210 A115211 A115212 * A115214 A115215 A115216

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