|
|
|
|
1, 2, 4, 8, 18, 46, 136, 464, 1818, 8122, 41076, 233472, 1480946, 10412590, 80634432, 683674832, 6312152354, 63144706754, 681317547508, 7896054343496, 97919789763074, 1294863406981790, 18200820837825480, 271147632138373600
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
PROG
|
(PARI) a(n)=local(A, B); A=Mat(1); for(m=2, n+1, B=matrix(m, m); for(i=1, m, for(j=1, i, if(i<3 || j==1 || j==i, B[i, j]=1, B[i, j]=A[i-1, j-1]+(A^2)[i-2, j-1] ); )); A=B); (A^2)[n+1, 1]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|