A078158 A078153(2^n).

0, 0, 0, 8, 24, 73, 183, 470, 1112, 2592, 5876, 13233, 29316, 64329, 140028, 302824, 651101, 1393204, 2968129, 6300084, 13326815, 28108564, 59123162, 124065274, 259759346, 542781169, 1132075405, 2357197804, 4900443545, 10173068455, 21090365684

Offset

1,4

Links

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

Mathematica

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

Crossrefs

Cf. A078152, A078153, A078154, A078155, A078156, A078157.

Sequence in context: A083583 A005051 A303402 * A221906 A116486 A179609

Adjacent sequences: A078155 A078156 A078157 * A078159 A078160 A078161

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

Status

approved