|
| |
|
|
A178924
|
|
Sum_{k>0} (n mod k) * 2^(n-k).
|
|
0
|
|
|
|
0, 1, 2, 5, 6, 23, 16, 89, 106, 267, 364, 1741, 526, 5135, 9360, 17681, 16914, 99347, 71188, 404501, 372758, 892951, 1763352, 7720985, 2809882, 17154075, 34201628, 82821149, 83623966, 435683359, 189300768, 1452343329, 1695678498, 4418961443, 8835694628
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,3
|
|
|
LINKS
|
Table of n, a(n) for n=0..34.
|
|
|
MAPLE
|
a:= n-> add ((n mod k) * 2^(n-k), k=1..n-1) + n:
seq (a(n), n=0..40);
|
|
|
MATHEMATICA
|
Table[Sum[Mod[n, k] 2^(n-k), {k, 1, Infinity}], {n, 0, 100}]
|
|
|
CROSSREFS
|
Sequence in context: A014454 A136324 A128367 * A137067 A214200 A008555
Adjacent sequences: A178921 A178922 A178923 * A178925 A178926 A178927
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Vladimir Reshetnikov, Dec 29 2010
|
|
|
EXTENSIONS
|
Edited by Alois P. Heinz, Dec 29 2010
|
|
|
STATUS
|
approved
|
| |
|
|
