login
Where record values occur in A113504.
3

%I #12 Sep 06 2017 10:57:06

%S 0,2,4,8,16,32,64,128,256,512,768,1024,1025,1040,1056,1088,1152,1280,

%T 1536,2048,2051,2060,2096,2113,2120,2128,2144,2177,2178,2192,2208,

%U 2240,2305,2312,2320,2336,2432,2561,2564,2568,2576,2592,2624,2688,2816,3073

%N Where record values occur in A113504.

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

%H Michael De Vlieger, <a href="/A115213/b115213.txt">Table of n, a(n) for n = 1..5000</a>

%t 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 *)

%K nonn

%O 1,2

%A _Reinhard Zumkeller_, Jan 17 2006

%E Corrected by _T. D. Noe_, Oct 25 2006

%E Offset corrected by _Michael De Vlieger_, Sep 06 2017