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!)
A115212 Record values in A113504. 3

%I

%S 1,2,3,5,8,13,28,49,76,160,174,189,224,228,232,242,246,293,306,350,

%T 353,354,355,362,363,366,376,392,393,394,395,408,434,435,437,439,455,

%U 486,487,489,492,503,523,546,586,671,673,678,692,717,746,821,858,859,861

%N Record values in A113504.

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

%H Michael De Vlieger, <a href="/A115212/b115212.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}]; Union@ FoldList[Max, a]] (* _Michael De Vlieger_, Sep 05 2017 *)

%Y Cf. A113504, A115213.

%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 September 27 08:39 EDT 2021. Contains 347689 sequences. (Running on oeis4.)