OFFSET
0,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..46
EXAMPLE
For example, for n=3 the array, from 2nd row, follows:
1..2..3.....70..71..72..73..74..75..76..77..78..79..80..81
........................73.147.222.298.375.453.532.612.693
.......................................................693
Therefore a(3)=693.
MAPLE
proc(n::nonnegint) local f, a; if n=0 or n=1 then return 1; end if; f:=L->[seq(add(L[i], i=8*nops(L)/9+1..j), j=8*nops(L)/9+1..nops(L))]; a:=f([seq(1, j=1..9^n)]); while nops(a)>9 do a:=f(a) end do; a[9]; end proc;
MATHEMATICA
A[n_, k_] := A[n, k] = If[n == 0, 1, -Sum[A[j, k]*(-1)^(n - j)* Binomial[If[j == 0, 1, k^j], n - j], {j, 0, n - 1}]];
a[n_] := A[n, 9];
CROSSREFS
KEYWORD
nonn
AUTHOR
Augustine O. Munagi, Jun 17 2005
EXTENSIONS
More terms from Alois P. Heinz, Jul 06 2022
STATUS
approved