cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-10 of 10 results.

A136220 Triangle P, read by rows, where column k of P^3 equals column 0 of P^(3k+3) such that column 0 of P^3 equals column 0 of P shift one row up, with P(0,0)=1.

Original entry on oeis.org

1, 1, 1, 3, 2, 1, 15, 10, 3, 1, 108, 75, 21, 4, 1, 1036, 753, 208, 36, 5, 1, 12569, 9534, 2637, 442, 55, 6, 1, 185704, 146353, 40731, 6742, 805, 78, 7, 1, 3247546, 2647628, 742620, 122350, 14330, 1325, 105, 8, 1, 65762269, 55251994, 15624420, 2571620
Offset: 0

Views

Author

Paul D. Hanna, Dec 25 2007, corrected Jan 24 2008

Keywords

Examples

			Triangle P begins:
         1;
         1,        1;
         3,        2,        1;
        15,       10,        3,       1;
       108,       75,       21,       4,      1;
      1036,      753,      208,      36,      5,     1;
     12569,     9534,     2637,     442,     55,     6,    1;
    185704,   146353,    40731,    6742,    805,    78,    7,   1;
   3247546,  2647628,   742620,  122350,  14330,  1325,  105,   8, 1;
  65762269, 55251994, 15624420, 2571620, 298240, 26943, 2030, 136, 9, 1; ...
where column k of P = column 0 of U^(k+1) and U = A136228.
Matrix cube, W = P^3 (A136231), begins:
       1;
       3,     1;
      15,     6,     1;
     108,    48,     9,    1;
    1036,   495,    99,   12,   1;
   12569,  6338,  1323,  168,  15,  1;
  185704, 97681, 21036, 2754, 255, 18, 1; ...
where column k of P^3 = column 0 of P^(3k+3) such that
column 0 of P^3 = column 0 of P shift one row up.
Matrix square, P^2 (A136225), begins:
      1;
      2,     1;
      8,     4,    1;
     49,    26,    6,    1;
    414,   232,   54,    8,   1;
   4529,  2657,  629,   92,  10,  1;
  61369, 37405, 9003, 1320, 140, 12, 1; ...
where column k of P^2 = column 0 of V^(k+1) and
triangle V = A136230 begins:
      1;
      2,     1;
      8,     5,     1;
     49,    35,     8,    1;
    414,   325,    80,   11,   1;
   4529,  3820,   988,  143,  14,  1;
  61369, 54800, 14696, 2200, 224, 17, 1; ...
where column k of V = column 0 of P^(3k+2).
Related triangle U = A136228 begins:
      1;
      1,     1;
      3,     4,    1;
     15,    24,    7,    1;
    108,   198,   63,   10,   1;
   1036,  2116,  714,  120,  13,  1;
  12569, 28052, 9884, 1725, 195, 16, 1; ...
where column k of U = column 0 of P^(3k+1)
and column k of P = column 0 of U^(k+1).
Surprisingly, column 0 of P is also found in square A136217:
(1),(1),1,(1),1,(1),1,(1),1,1,(1),1,1,(1),1,1,(1),1,1,1,(1),...;
(1),(2),3,(4),5,(6),7,(8),9,10,(11),12,13,(14),15,16,(17),...;
(3),(8),15,(24),34,(46),59,(74),90,108,(127),147,169,(192),...;
(15),(49),108,(198),306,(453),622,(838),1080,1377,(1704),...;
(108),(414),1036,(2116),3493,(5555),8040,(11477),15483,...;
(1036),(4529),12569,(28052),48800,(82328),124335,(186261),...;
(12569),(61369),185704,(446560),811111,(1438447),2250731,...;
...
and has a recurrence similar to that of square array A136212
which generates the triple factorials.
		

Crossrefs

Related tables: A136228 (U), A136230 (V), A136231 (W=P^3), A136217, A136218.
Variants: A091351, A135880.

Programs

  • PARI
    {T(n,k)=local(P=Mat(1),U,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])))));P[n+1,k+1]}

Formula

Denote this triangle by P and define as follows.
Let [P^m]_k denote column k of matrix power P^m,
so that triangular matrix W = A136231 may be defined by
[W]_k = [P^(3k+3)]_0, for k>=0, such that
(1) W = P^3 and (2) [W]_0 = [P]_0 shift up one row.
Define the triangular matrix U = A136228 by
[U]_k = [P^(3k+1)]_0, for k>=0,
and the triangular matrix V = A136230 by
[V]_k = [P^(3k+2)]_0, for k>=0.
Then columns of P may be formed from powers of U:
[P]_k = [U^(k+1)]_0, for k>=0,
and columns of P^2 may be formed from powers of V:
[P^2]_k = [V^(k+1)]_0, for k>=0.
Further, columns of powers of P, U, V and W satisfy:
[U^(j+1)]_k = [P^(3k+1)]_j,
[V^(j+1)]_k = [P^(3k+2)]_j,
[W^(j+1)]_k = [P^(3k+3)]_j,
[W^(j+1)]_k = [W^(k+1)]_j,
[P^(3j+3)]_k = [P^(3k+3)]_j, for all j>=0, k>=0.
Also, we have the column transformations:
U * [P]k = [P]{k+1},
V * [P^2]k = [P^2]{k+1},
W * [P^3]k = [P^3]{k+1},
W * [U]k = [U]{k+1},
W * [V]k = [V]{k+1},
W * [W]k = [W]{k+1}, for all k>=0.
Other identities include the matrix products:
U = P * [P^2 shift right one column];
V = P^2 * [P shift right one column];
V = U * [U shift down one row];
W = V * [V shift down one row];
where the triangle transformations "shift right" and "shift down" are illustrated in examples of entries A136228 (U) and A136230 (V).

Extensions

Typo in example corrected by Paul D. Hanna, Mar 27 2010

A136228 Triangle U, read by rows, where column k of U^(j+1) = column j of P^(3k+1) for j>=0, k>=0 and P=A136220.

Original entry on oeis.org

1, 1, 1, 3, 4, 1, 15, 24, 7, 1, 108, 198, 63, 10, 1, 1036, 2116, 714, 120, 13, 1, 12569, 28052, 9884, 1725, 195, 16, 1, 185704, 446560, 162729, 29190, 3393, 288, 19, 1, 3247546, 8325700, 3117660, 571225, 67756, 5880, 399, 22, 1, 65762269, 178284892
Offset: 0

Views

Author

Paul D. Hanna, Jan 28 2008

Keywords

Examples

			Triangle U begins:
1;
1, 1;
3, 4, 1;
15, 24, 7, 1;
108, 198, 63, 10, 1;
1036, 2116, 714, 120, 13, 1;
12569, 28052, 9884, 1725, 195, 16, 1;
185704, 446560, 162729, 29190, 3393, 288, 19, 1;
3247546, 8325700, 3117660, 571225, 67756, 5880, 399, 22, 1; ...
where column k of U = column 0 of P^(3k+1) and
triangle P = A136220 begins:
1;
1, 1;
3, 2, 1;
15, 10, 3, 1;
108, 75, 21, 4, 1;
1036, 753, 208, 36, 5, 1;
12569, 9534, 2637, 442, 55, 6, 1;
185704, 146353, 40731, 6742, 805, 78, 7, 1; ...
where column k of P = column 0 of U^(k+1).
Also, this triangle U can be obtained by the matrix product:
U = P * [P^2 shift right one column]
where P^2 shift right one column begins:
1;
0, 1;
0, 2, 1;
0, 8, 4, 1;
0, 49, 26, 6, 1;
0, 414, 232, 54, 8, 1;
0, 4529, 2657, 629, 92, 10, 1;
0, 61369, 37405, 9003, 1320, 140, 12, 1; ...
		

Crossrefs

Cf. A136221 (column 0), A136229 (column 1); related tables: A136220 (P), A136225 (P^2), A136230 (V), A136231 (W=P^3), A136217, A136218.

Programs

  • PARI
    {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[n+1,k+1]}

Formula

This triangle U = P * [P^2 shift right one column] (see example), where P = A136220 and P^2 = A136225.

A136217 Square array, read by antidiagonals, where row n+1 is generated from row n by first removing terms in row n at positions {floor(m*(m+7)/6), m>=0} and then taking partial sums, starting with all 1's in row 0.

Original entry on oeis.org

1, 1, 1, 3, 2, 1, 15, 8, 3, 1, 108, 49, 15, 4, 1, 1036, 414, 108, 24, 5, 1, 12569, 4529, 1036, 198, 34, 6, 1, 185704, 61369, 12569, 2116, 306, 46, 7, 1, 3247546, 996815, 185704, 28052, 3493, 453, 59, 8, 1, 65762269, 18931547, 3247546, 446560, 48800, 5555, 622, 74, 9, 1
Offset: 0

Views

Author

Paul D. Hanna, Dec 23 2007

Keywords

Comments

A variant of the triple factorial array A136212. Compare to triangle array A136218, which is generated by a complementary process.

Examples

			Square array begins:
(1),(1),1,(1),1,(1),1,(1),1,1,(1),1,1,(1),1,1,(1),1,1,(1),1,1,1,(1),...;
(1),(2),3,(4),5,(6),7,(8),9,10,(11),12,13,(14),15,16,(17),18,19,20,(21),..;
(3),(8),15,(24),34,(46),59,(74),90,108,(127),147,169,(192),216,242,(269),..;
(15),(49),108,(198),306,(453),622,(838),1080,1377,(1704),2062,2485,(2943),..;
(108),(414),1036,(2116),3493,(5555),8040,(11477),15483,20748,(26748),33528,..;
(1036),(4529),12569,(28052),48800,(82328),124335,(186261),260856,364551,..;
(12569),(61369),185704,(446560),811111,(1438447),2250731,(3513569),5078154,..;
(185704),(996815),3247546,(8325700),15684001,(29039188),46830722,...;
(3247546),(18931547),65762269,(178284892),346583419,...;
(65762269),(412345688),1515642725,(4317391240),...; ...
where terms in parenthesis are at positions {floor(m*(m+7)/6), m>=0} and are removed before taking partial sums to obtain the next row.
To generate the array, start with all 1's in row 0; from then on, obtain row n+1 from row n by first removing terms in row n at positions {floor(m*(m+7)/6), m>=0} and then taking partial sums.
For example, to generate row 2 from row 1:
[(1),(2),3,(4),5,(6),7,(8),9,10,(11),12,13,(14),15,16,(17),18,...],
remove terms at positions [0,1,3,5,7,10,13,16,20,...] to get:
[3, 5, 7, 9,10, 12,13, 15,16, 18,19,20, 22,23,24, 26,27,28,...]
then take partial sums to obtain row 2:
[3,8,15,24,34,46,59,74,90,108,127,147,169,192,216,242,269,...].
Continuing in this way will generate all the rows of this array.
Amazingly, column 0 of this array = column 0 of triangle P=A136220:
       1;
       1,      1;
       3,      2,     1;
      15,     10,     3,    1;
     108,     75,    21,    4,   1;
    1036,    753,   208,   36,   5,  1;
   12569,   9534,  2637,  442,  55,  6, 1;
  185704, 146353, 40731, 6742, 805, 78, 7, 1; ...
where column k of P^3 = column 0 of P^(3k+3) such that column 0 of P^3 = column 0 of P shift one place left.
		

Crossrefs

Cf. columns: A136221, A136226, A136229; related tables: A136220 (P), A136226 (P^2), A136232 (P^4).

Programs

  • Mathematica
    nmax = 9;
    row[0] = Table[1, {nmax^2}];
    row[n_] := row[n] = Accumulate[Delete[row[n-1], Table[{Floor[m((m+7)/6)+1] }, {m, 0, (1/2)(-7 + Sqrt[1 + 24 Length[row[n-1]]]) // Floor}]]];
    R = row /@ Range[0, nmax];
    T[n_, k_] := R[[n+1, k+1]];
    Table[T[n-k, k], {n, 0, nmax}, {k, 0, n}] // Flatten (* Jean-François Alcover, Nov 06 2019 *)
  • PARI
    {T(n, k)=local(A=0, m=0, c=0, d=0); if(n==0, A=1, until(d>k, if(c==(m*(m+7))\6, m+=1, A+=T(n-1, c); d+=1); c+=1)); A}

Formula

Let triangular matrix P = A136220, then: column 0 (A136221) = column 0 of P; column 1 (A136226) = column 0 of P^2; column 3 (A136229) = column 0 of P^4.

A136231 Triangle W, read by rows, where column k of W = column 0 of W^(k+1) for k>=0 such that W equals the matrix cube of P = A136220 with column 0 of W = column 0 of P shift up one row.

Original entry on oeis.org

1, 3, 1, 15, 6, 1, 108, 48, 9, 1, 1036, 495, 99, 12, 1, 12569, 6338, 1323, 168, 15, 1, 185704, 97681, 21036, 2754, 255, 18, 1, 3247546, 1767845, 390012, 52204, 4950, 360, 21, 1, 65762269, 36839663, 8287041, 1128404, 108860, 8073, 483, 24, 1, 1515642725
Offset: 0

Views

Author

Paul D. Hanna, Jan 28 2008

Keywords

Comments

This triangle W is the column transform for triangles U=A136228 and V=A136230: W * [column k of U] = column k+1 of U and W * [column k of V] = column k+1 of V, for k>=0.

Examples

			Triangle W begins:
1;
3, 1;
15, 6, 1;
108, 48, 9, 1;
1036, 495, 99, 12, 1;
12569, 6338, 1323, 168, 15, 1;
185704, 97681, 21036, 2754, 255, 18, 1;
3247546, 1767845, 390012, 52204, 4950, 360, 21, 1;
65762269, 36839663, 8287041, 1128404, 108860, 8073, 483, 24, 1; ...
where column k of W = column 0 of W^(k+1) such that W = P^3
and triangle P = A136220 begins:
1;
1, 1;
3, 2, 1;
15, 10, 3, 1;
108, 75, 21, 4, 1;
1036, 753, 208, 36, 5, 1;
12569, 9534, 2637, 442, 55, 6, 1; ...
where column k of P^3 = column 0 of P^(3k+3) such that
column 0 of P^3 = column 0 of P shift up one row.
Also, this triangle W equals the matrix product:
W = V * [V shift down one row]
where triangle V = A136230 begins:
1;
2, 1;
8, 5, 1;
49, 35, 8, 1;
414, 325, 80, 11, 1;
4529, 3820, 988, 143, 14, 1;
61369, 54800, 14696, 2200, 224, 17, 1; ...
and V shift down one row begins:
1;
1, 1;
2, 1, 1;
8, 5, 1, 1;
49, 35, 8, 1, 1;
414, 325, 80, 11, 1, 1;
4529, 3820, 988, 143, 14, 1, 1; ...
		

Crossrefs

Cf. A136221 (column 0); related tables: A136220 (P), A136225 (P^2), A136228 (U), A136230 (V), A136235 (W^2), A136238 (W^3); A136217, A136218.

Programs

  • PARI
    {T(n,k)=local(P=Mat(1),U=Mat(1),W=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]))); W=P^3;));W[n+1,k+1]}

A136218 Triangle, read by rows of A136219(n) terms, where row n+1 is generated from row n by first inserting zeros in row n at positions {[m*(m+7)/6], m>=0} and then taking partial sums, starting with a '1' in row 0.

Original entry on oeis.org

1, 1, 1, 1, 3, 3, 3, 2, 2, 1, 1, 15, 15, 15, 12, 12, 9, 9, 6, 6, 4, 2, 2, 1, 108, 108, 108, 93, 93, 78, 78, 63, 63, 51, 39, 39, 30, 21, 21, 15, 9, 9, 5, 3, 1, 1, 1036, 1036, 1036, 928, 928, 820, 820, 712, 712, 619, 526, 526, 448, 370, 370, 307, 244, 244, 193, 154, 115, 115, 85
Offset: 0

Views

Author

Paul D. Hanna, Dec 23 2007

Keywords

Comments

A variant of the triple factorial triangle A136213. Compare to square array A136217, which is generated by a complementary process.

Examples

			Triangle begins:
1;
1,1,1;
3,3,3,2,2,1,1;
15,15,15,12,12,9,9,6,6,4,2,2,1;
108,108,108,93,93,78,78,63,63,51,39,39,30,21,21,15,9,9,5,3,1,1;
1036,1036,1036,928,928,820,820,712,712,619,526,526,448,370,370,307,244,244,193,154,115,115,85,64,43,43,28,19,10,10,5,2,1;
12569,12569,12569,11533,11533,10497,10497,9461,9461,8533,7605,7605,6785,5965,5965,5253,4541,4541,3922,3396,2870,2870,2422,2052,1682,1682,1375,1131,887,887,694,540,425,310,310,225,161,118,75,75,47,28,18,8,8,3,1;
...
Number of terms in rows is given by A136219, which starts:
[1,3,7,13,22,33,47,64,84,106,131,159,190,224,261,301,343,388,...].
To generate row 3, start with row 2:
[3,3,3,2,2,1,1];
insert zeros at positions [0,1,3,5,7,10] to get:
[0,0,3,0,3,0,3,0,2,2,0,1,1],
then take reverse partial sums (from right to left) to obtain row 3:
[15,15,15,12,12,9,9,6,6,4,2,2,1].
For row 4, insert zeros in row 3 at positions [0,1,3,5,7,10,13,16,20]:
[0,0,15,0,15,0,15,0,12,12,0,9,9,0,6,6,0,4,2,2,0,1]
then take reverse partial sums to obtain row 4:
[108,108,108,93,93,78,78,63,63,51,39,39,30,21,21,15,9,9,5,3,1,1].
Continuing in this way will generate all the rows of this triangle.
Amazingly, column 0 of this triangle = column 0 of triangle P=A136220:
1;
1, 1;
3, 2, 1;
15, 10, 3, 1;
108, 75, 21, 4, 1;
1036, 753, 208, 36, 5, 1;
12569, 9534, 2637, 442, 55, 6, 1;
185704, 146353, 40731, 6742, 805, 78, 7, 1; ...
where column k of P^3 = column 0 of P^(3k+3) such that
column 0 of P^3 = column 0 of P shift one place left.
		

Crossrefs

Cf. A136221 (column 0), A136219; A136213, A136220.

Programs

  • PARI
    {T(n,k)=local(A=[1],B);if(n>0,for(i=1,n,m=1;B=[0]; for(j=1,#A,if(j+m-1==(m*(m+7))\6,m+=1;B=concat(B,0));B=concat(B,A[j])); A=Vec(Polrev(Vec(Pol(B)/(1-x+O(x^#B)))))));if(k+1>#A,0,A[k+1])} /* for(n=0,6,for(k=0,2*n^2,if(T(n,k)==0,break,print1(T(n,k),",")));print("")) */

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

Views

Author

Paul D. Hanna, Dec 25 2007

Keywords

Comments

P = A136220 is a triangular matrix where column k of P^3 equals column 0 of P^(3k+3) such that column 0 of P^3 equals column 0 of P shift one place left.

Crossrefs

Cf. A136220 (P), A136228 (U), A136233 (U^2); other columns of P: A136221, A136223, A136224.

Programs

  • PARI
    {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])}

A136223 Column 2 of triangle A136220; also equals column 0 of U^3 = A136236 where U = A136228.

Original entry on oeis.org

1, 3, 21, 208, 2637, 40731, 742620, 15624420, 372892266, 9959561867, 294465305959, 9551090908795, 337297690543923, 12886076807637021, 529624555043780909, 23305654066781507361, 1093356525580359412557
Offset: 0

Views

Author

Paul D. Hanna, Dec 25 2007

Keywords

Comments

P = A136220 is a triangular matrix where column k of P^3 equals column 0 of P^(3k+3) such that column 0 of P^3 equals column 0 of P shift one place left.

Crossrefs

Cf. A136220 (P), A136228 (U), A136236 (U^3); other columns of P: A136221, A136222, A136224.

Programs

  • PARI
    {a(n)=local(P=Mat(1),U,PShR);if(n==0,1,for(i=0,n+1, 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+3,3])}

A136224 Column 3 of triangle A136220; also equals column 0 of U^4 where U = A136228.

Original entry on oeis.org

1, 4, 36, 442, 6742, 122350, 2571620, 61426282, 1643616044, 48708655760, 1583981114700, 56090062706944, 2148733943483128, 88554674908328872, 3907197406833303644, 183780036631720987407, 9180785177015520963631
Offset: 0

Views

Author

Paul D. Hanna, Dec 25 2007

Keywords

Comments

P = A136220 is a triangular matrix where column k of P^3 equals column 0 of P^(3k+3) such that column 0 of P^3 equals column 0 of P shift one place left.

Crossrefs

Cf. A136220 (P), A136228 (U); other columns of P: A136221, A136222, A136223.

Programs

  • PARI
    {a(n)=local(P=Mat(1),U,PShR);if(n==0,1,for(i=0,n+2, 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+4,4])}

A136229 Column 1 of triangle A136228; also equals column 3 of square array A136217.

Original entry on oeis.org

1, 4, 24, 198, 2116, 28052, 446560, 8325700, 178284892, 4317391240, 116757568072, 3489919886180, 114304360656596, 4072431454706374, 156845310426959972, 6494800764749659199, 287796117221639178946, 13590112496057829388516
Offset: 0

Views

Author

Paul D. Hanna, Jan 28 2008

Keywords

Crossrefs

Programs

  • PARI
    {a(n)=local(P=Mat(1),U=Mat([1,0;1,1]),PShR);if(n>0,for(i=0,n+1, 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[n+2,2]}

A136235 Matrix square of triangle W = A136231; also equals P^6, where P = triangle A136220.

Original entry on oeis.org

1, 6, 1, 48, 12, 1, 495, 150, 18, 1, 6338, 2160, 306, 24, 1, 97681, 36103, 5643, 516, 30, 1, 1767845, 694079, 115917, 11592, 780, 36, 1, 36839663, 15164785, 2657946, 282122, 20655, 1098, 42, 1, 870101407, 372225541, 67708113, 7502470, 580780
Offset: 0

Views

Author

Paul D. Hanna, Feb 07 2008

Keywords

Examples

			This triangle, W^2, begins:
1;
6, 1;
48, 12, 1;
495, 150, 18, 1;
6338, 2160, 306, 24, 1;
97681, 36103, 5643, 516, 30, 1;
1767845, 694079, 115917, 11592, 780, 36, 1;
36839663, 15164785, 2657946, 282122, 20655, 1098, 42, 1;
870101407, 372225541, 67708113, 7502470, 580780, 33480, 1470, 48, 1; ...
where column 0 of W^2 = column 1 of W = triangle A136231.
		

Crossrefs

Cf. A136221 (column 0); related tables: A136220 (P), A136228 (U), A136230 (V), A136231 (W), A136238 (W^3).

Programs

  • PARI
    {T(n,k)=local(P=Mat(1),U=Mat(1),W=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]))); W=P^3;));(W^2)[n+1,k+1]}

Formula

Column k of W^2 (this triangle) = column 1 of W^(k+1), where W = P^3 and P = triangle A136220.
Showing 1-10 of 10 results.