%I #7 May 20 2013 02:51:53
%S 1,1,4,5,16,82,169,541,2272,17965,44407,201751,801515,4890886,
%T 52218595,165519640,835947970,4290442728,24096524166,179566203960,
%U 2739764737710,9938147178960,60997160143920,331360222255920,2154105076695000
%N a(n) = number of n-digit terms in A108571.
%C First 9 terms coincide with terms in A007837. Sum of all 45 terms gives the total number of terms in A108571: 66712890763701234740813164553708284.
%H Zak Seidov, <a href="/A127007/b127007.txt">Table of n, a(n) for n = 1..45.</a>
%t a[n_, w_:{0}] := If[n == 0, Total[w]!/Times @@ (w!), Sum[a[n-k, Append[w, k]], {k, 1 + Last@w, Min[9, n]}]]; Array[a, 45] (* _Giovanni Resta_, May 19 2013 *)
%Y Cf. A007837, A108571.
%K base,nonn
%O 1,3
%A _Zak Seidov_, Jan 02 2007