|
%I #11 Jan 21 2019 19:01:55
%S 0,1,3,5,7,10,13,16,19,22,25,29,33,37,41,45,49,53,57,61,65,69,74,79,
%T 84,89,94,99,104,109,114,119,124,129,134,139,144,149,154,159,164,169,
%U 174,179,184,190,196,202,208,214,220,226,232,238,244,250,256,262,268,274
%N Partial sums of round(log_2(n)).
%F a(n)= sum_{i=1..n} A004257(i). - _R. J. Mathar_, Sep 08 2008
%p A004257 := proc(n) option remember ; round(log[2](n)) ; end: A092757 := proc(n) local i ; add( A004257(i),i=1..n) ; end: for n from 1 to 100 do printf("%d,",A092757(n)) ; od: # _R. J. Mathar_, Sep 08 2008
%t Accumulate[Round[Log[2,Range[60]]]] (* _Harvey P. Dale_, Apr 15 2018 *)
%Y Cf. A092919. - _R. J. Mathar_, Sep 08 2008
%K nonn,easy
%O 1,3
%A _Jorge Coveiro_, Apr 13 2004
%E Corrected and extended by Pab Ter (pabrlos(AT)yahoo.com), May 24 2004
%E Changed from a(3) on by _R. J. Mathar_, Sep 08 2008
|
