|
Search: id:A078158
|
|
| |
|
| 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
(list; graph; listen)
|
|
|
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: A090336 A005051 A083583 this_sequence A116486 A141317 A146534
Adjacent sequences: A078155 A078156 A078157 this_sequence A078159 A078160 A078161
|
|
KEYWORD
|
nonn
|
|
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
|
|
|
Search completed in 0.002 seconds
|
