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,3

Links

Table of n, a(n) for n=1..60.

Formula

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

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 *)

Crossrefs

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

Sequence in context: A276498 A186148 A079511 * A062430 A016040 A003070

Adjacent sequences: A092754 A092755 A092756 * A092758 A092759 A092760

Keyword

nonn,easy

Author

Jorge Coveiro, Apr 13 2004

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

Status

approved