cp's OEIS Frontend

A264668 a(n) = A264600(n) - A061486(n).

%I A264668 #9 Nov 22 2015 16:06:33
%S A264668 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 A264668 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 A264668 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 A264668 a(n) = A264600(n) - A061486(n).
%H A264668 Alois P. Heinz, <a href="/A264668/b264668.txt">Table of n, a(n) for n = 0..20000</a>
%p A264668 with(combinat):
%p A264668 f:= n-> (l-> add(mul(l[i], i=w), w=choose(
%p A264668          nops(l)))-1)(convert(n, base, 10)):
%p A264668 g:= proc(n) option remember; `if`(n=0, 0,
%p A264668       irem(n, 10, 'r')*(r+1)+g(r))
%p A264668     end:
%p A264668 a:= n-> g(n)-f(n):
%p A264668 seq(a(n), n=0..150);
%Y A264668 Cf. A061486, A264600.
%K A264668 nonn,look,base
%O A264668 0,102
%A A264668 _Alois P. Heinz_, Nov 20 2015