|
| |
| |
|
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,4
|
|
|
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: A199911 A083583 A005051 * A116486 A179609 A141317
Adjacent sequences: A078155 A078156 A078157 * A078159 A078160 A078161
|
|
|
KEYWORD
| nonn,changed
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Nov 27 2002
|
|
|
EXTENSIONS
| Extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 02 2002
Terms a(26) onward from Max Alekseyev (maxale(AT)gmail.com), Feb 12 2012
|
| |
|
|
