A135570 a(n) = 1 + Sum_{i=1..n} S2(i)*2^i, where S2(n) is digit sum of n, n in binary notation.

1, 3, 7, 23, 39, 103, 231, 615, 871, 1895, 3943, 10087, 18279, 42855, 92007, 223079, 288615, 550759, 1075047, 2647911, 4745063, 11036519, 23619431, 57173863, 90728295, 191391591, 392718183, 929589095, 1734895463, 3882379111

Offset

0,2

Links

G. C. Greubel, Table of n, a(n) for n = 0..1000

Mathematica

Table[1 + Sum[DigitCount[i, 2, 1]*2^i, {i, 1, n}], {n, 0, 25}] (* G. C. Greubel, Oct 19 2016 *)

Crossrefs

Cf. A000120, A010060.

Sequence in context: A270384 A213897 A291776 * A053027 A133432 A133433

Adjacent sequences: A135567 A135568 A135569 * A135571 A135572 A135573

Keyword

easy,nonn,base

Author

Ctibor O. Zizka, Feb 23 2008, corrected Mar 03 2008

Extensions

Offset corrected by Alois P. Heinz, Oct 24 2019

Status

approved