OFFSET
0,102
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..20000
MAPLE
with(combinat):
f:= n-> (l-> add(mul(l[i], i=w), w=choose(
nops(l)))-1)(convert(n, base, 10)):
g:= proc(n) option remember; `if`(n=0, 0,
irem(n, 10, 'r')*(r+1)+g(r))
end:
a:= n-> g(n)-f(n):
seq(a(n), n=0..150);
CROSSREFS
KEYWORD
AUTHOR
Alois P. Heinz, Nov 20 2015
STATUS
approved