A127007 a(n) = number of n-digit terms in A108571.

1, 1, 4, 5, 16, 82, 169, 541, 2272, 17965, 44407, 201751, 801515, 4890886, 52218595, 165519640, 835947970, 4290442728, 24096524166, 179566203960, 2739764737710, 9938147178960, 60997160143920, 331360222255920, 2154105076695000

Offset: 1

Author

Zak Seidov, Jan 02 2007

Keywords

• base
• nonn

Comments

First 9 terms coincide with terms in A007837. Sum of all 45 terms gives the total number of terms in A108571: 66712890763701234740813164553708284.

Links

• Zak Seidov, Table of n, a(n) for n = 1..45.

Crossrefs

Cf. A007837, A108571.

Programs

Mathematica

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 *)