A078158 a(n) = 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

Author

Labos Elemer, Nov 27 2002

Keywords

• nonn

Crossrefs

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

Programs

Mathematica

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

Extensions

Extended by Robert G. Wilson v, Dec 02 2002

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