A136222
Column 1 of triangle A136220; also equals column 0 of U^2 = A136233 where U = A136228.
Original entry on oeis.org
1, 2, 10, 75, 753, 9534, 146353, 2647628, 55251994, 1308089217, 34669446816, 1017575959652, 32778617719852, 1150083357364646, 43669478546754372, 1784505372378097160, 78098473768259907870, 3645038134074497689782
Offset: 0
-
{a(n)=local(P=Mat(1),U,PShR);if(n==0,1,for(i=0,n, PShR=matrix(#P,#P, r,c, if(r>=c,if(r==c,1,if(c==1,0,P[r-1,c-1]))));U=P*PShR^2; U=matrix(#P+1, #P+1, r,c, if(r>=c, if(r<#P+1,U[r,c], if(c==1,(P^3)[ #P,1],(P^(3*c-1))[r-c+1,1])))); P=matrix(#U, #U, r,c, if(r>=c, if(r<#U,P[r,c], (U^c)[r-c+1,1]))));P[n+2,2])}
A136236
Matrix cube of triangle U = A136228, read by rows.
Original entry on oeis.org
1, 3, 1, 21, 12, 1, 208, 156, 21, 1, 2637, 2350, 399, 30, 1, 40731, 41034, 8029, 750, 39, 1, 742620, 821562, 177198, 18865, 1209, 48, 1, 15624420, 18631332, 4317936, 502335, 36478, 1776, 57, 1, 372892266, 473187270, 115949841, 14390880, 1136811
Offset: 0
This triangle, U^3, begins:
1;
3, 1;
21, 12, 1;
208, 156, 21, 1;
2637, 2350, 399, 30, 1;
40731, 41034, 8029, 750, 39, 1;
742620, 821562, 177198, 18865, 1209, 48, 1;
15624420, 18631332, 4317936, 502335, 36478, 1776, 57, 1;
372892266, 473187270, 115949841, 14390880, 1136811, 62488, 2451, 66, 1;
where column 0 of U^3 = column 2 of P = A136220.
-
{T(n,k)=local(P=Mat(1),U=Mat(1),PShR);if(n>0,for(i=0,n, PShR=matrix(#P,#P, r,c, if(r>=c,if(r==c,1,if(c==1,0,P[r-1,c-1]))));U=P*PShR^2; U=matrix(#P+1, #P+1, r,c, if(r>=c, if(r<#P+1,U[r,c], if(c==1,(P^3)[ #P,1],(P^(3*c-1))[r-c+1,1])))); P=matrix(#U, #U, r,c, if(r>=c, if(r<#R,P[r,c], (U^c)[r-c+1,1])))));(U^3)[n+1,k+1]}
Showing 1-2 of 2 results.
Comments