%I A120367
%S A120367 1,2,3,5,7,10,13,16,19,22,25,28,31,36,41,46,51,56,61,66,71,76,81,86,91,
%T A120367 96,101,106,111,117,123,129,135,141,147,153,159,165,171,177,183,189,195,
%U A120367 201,207,213,219,225,231,237,243,249,255,263,271,279,287,295,303,311
%N A120367 a(1) = 1. a(n) = a(n-1) + (maximum number of 1's occurring in the binary
representation of any of the sequence's earlier terms).
%H A120367 Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a>
(listed in lieu of email address)
%e A120367 When considering the first 14 terms of the sequence, a(13) = 31 has the
most number of 1's in its binary representation, 5 ones. So a(15)
= a(14) + 5 = 41.
%p A120367 A000120 := proc(n) local br,i; br := convert(n,base,2); sum(op(i,br),
i=1..nops(br)); end: A120367 := proc(nmax) local a,bmax,anew; a :=
[1]; bmax := 1; while nops(a) < nmax do anew := op(-1,a)+bmax; a
:= [op(a),anew]; bmax := max(bmax,A000120(anew)); od; RETURN(a);
end; print(A120367(80) ); - R. J. Mathar (mathar(AT)strw.leidenuniv.nl),
Dec 16 2006
%Y A120367 Cf. A000120.
%Y A120367 Sequence in context: A162999 A064509 A096221 this_sequence A072831 A072388
A101433
%Y A120367 Adjacent sequences: A120364 A120365 A120366 this_sequence A120368 A120369
A120370
%K A120367 nonn
%O A120367 1,2
%A A120367 Leroy Quet Jun 26 2006
%E A120367 More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Dec 16 2006
|