A078161 a(n) = A051201(2^n).

1, 3, 7, 15, 39, 87, 200, 438, 981, 2135, 4639, 9971, 21424, 45699, 97096, 205563, 433895, 913244, 1917491, 4016704, 8397235, 8397235, 36497171, 75900377, 157619705, 326868209, 676998896, 1400510860, 2894068715, 5974185368, 12320552102, 25385332979

Offset

0,2

Links

Table of n, a(n) for n=0..31.

Mathematica

Table[ Apply[ Plus, Union[ Table[ Floor[2^w/j], {j, 1, 2^w}]]], {w, 1, 25}]

Crossrefs

Cf. A051201, A078159, A078160, A078162.

Sequence in context: A018020 A192472 A147106 * A216616 A230958 A146033

Adjacent sequences: A078158 A078159 A078160 * A078162 A078163 A078164

Keyword

nonn

Author

Labos Elemer, Nov 27 2002

Extensions

Extended by Robert G. Wilson v, Dec 02 2002

Terms a(26) onward from Max Alekseyev, Feb 12 2012

a(0)=1 prepended by Alois P. Heinz, Oct 31 2023

Status

approved