OFFSET
0,3
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
KEYWORD
nonn
AUTHOR
Vladimir Reshetnikov, Dec 29 2010
EXTENSIONS
Edited by Alois P. Heinz, Dec 29 2010
STATUS
approved