OFFSET
0,3
LINKS
Paul D. Hanna, Table of n, a(n) for n = 0..40
PROG
(PARI) {T(n, k)=local(M=Mat(1), L, R); for(i=1, n,
L=sum(j=1, #M, -(M^0-M)^j/j); M=sum(j=0, #L, (L/3^(#L-1))^j/j!); R=matrix(#M+1, #M+1, r, c,
if(r>=c, if(r<=#M, M[r, c], 3^((c-1)*(#M+1-c))))); M=R^(3^(#M-1)) ); M[n+1, k+1]}
for(n=0, 20, print1(T(n, 0), ", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Jun 24 2016
STATUS
approved