login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A115213 Where record values occur in A113504. 3

%I

%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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 30 09:18 EDT 2021. Contains 346359 sequences. (Running on oeis4.)