|
|
PROG
| Contribution from Michael B. Porter (michael_b_porter(AT)yahoo.com), Feb 02 2010: (Start)
(PARI) g=matrix(33, 65);
for(n=0, 32, for(k=0, 2*n, g[n+1, k+1]=0));
g[1, 1]=1;
g[2, 1]=1; g[2, 2]=0; g[2, 3]=1;
g[3, 1]=1; g[3, 2]=1; g[3, 3]=2; g[3, 4]=1; g[3, 5]=1;
for(n=0, 2, k=floor(n/2); print(n, " ", k, " ", g[n+1, k+1]))
for(n=3, 32, g[n+1, 1]=1; print(n, " 1 1"); g[n+1, 2]=n-1; print(n, " 2 ", n-1); for(k=2, 2*n, g[n+1, k+1]=g[n, k-1]+g[n, k]+g[n, k+1]; if(k==floor(n/2), print(n, " ", k, " ", g[n+1, k+1])))) (End)
|
