%I #9 Nov 22 2015 16:06:33
%S 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
%T 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
%U 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9,18,27,36,45,54,63,72,81,0,8,16,24,32,40,48,56,64,72,0,7,14,21,28,35,42,49,56,63
%N a(n) = A264600(n) - A061486(n).
%H Alois P. Heinz, <a href="/A264668/b264668.txt">Table of n, a(n) for n = 0..20000</a>
%p with(combinat):
%p f:= n-> (l-> add(mul(l[i], i=w), w=choose(
%p nops(l)))-1)(convert(n, base, 10)):
%p g:= proc(n) option remember; `if`(n=0, 0,
%p irem(n, 10, 'r')*(r+1)+g(r))
%p end:
%p a:= n-> g(n)-f(n):
%p seq(a(n), n=0..150);
%Y Cf. A061486, A264600.
%K nonn,look,base
%O 0,102
%A _Alois P. Heinz_, Nov 20 2015
|