OFFSET
0,2
FORMULA
a(n) ~ 3^n*log_3(n)/(18n) (conjecture).
PROG
(PARI) {a(n)=local(A=vector(n+1, i, vector(i)), B); A[1][1]=1; for(k=1, n, B=vector(k+1); B[1]=2*A[k][1]; B[k+1]=A[k][k]; for(i=2, k, B[i]=2*A[k][i]+A[k][i-1]); A[k+1]=vecsort(B)); return(A[n+1][n+1])}
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Jan 28 2005
STATUS
approved