A092757 Partial sums of round(log_2(n)).

0, 1, 3, 5, 7, 10, 13, 16, 19, 22, 25, 29, 33, 37, 41, 45, 49, 53, 57, 61, 65, 69, 74, 79, 84, 89, 94, 99, 104, 109, 114, 119, 124, 129, 134, 139, 144, 149, 154, 159, 164, 169, 174, 179, 184, 190, 196, 202, 208, 214, 220, 226, 232, 238, 244, 250, 256, 262, 268, 274

Offset: 1

Author

Jorge Coveiro, Apr 13 2004

Keywords

• nonn
• easy

Crossrefs

Cf. A092919. - R. J. Mathar, Sep 08 2008

Programs

Maple

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

Mathematica

Accumulate[Round[Log[2,Range[60]]]] (* Harvey P. Dale, Apr 15 2018 *)

Formula

a(n)= sum_{i=1..n} A004257(i). - R. J. Mathar, Sep 08 2008

Extensions

Corrected and extended by Pab Ter (pabrlos(AT)yahoo.com), May 24 2004

Changed from a(3) on by R. J. Mathar, Sep 08 2008