A154698 Triangular sequence T(n, m) = (p^(n-m)*q^m + p^m*q^(n-m))*A(n+1, m+1), where A(n, m) = (3*n -3*k +1)A(n-1, k-1) + (3*k-2)A(n-1, k), A(n,1)=A(n,n)=1, p=2 and q=3.

2, 5, 5, 13, 96, 13, 35, 1170, 1170, 35, 97, 12948, 39312, 12948, 97, 275, 142170, 986760, 986760, 142170, 275, 793, 1585368, 22077900, 47364480, 22077900, 1585368, 793, 2315, 18009750, 470999340, 1846449000, 1846449000, 470999340, 18009750, 2315

Offset

0,1

Links

G. C. Greubel, Rows n = 0..20 of triangle, flattened

A. Lakhtakia, R. Messier, V. K. Varadan, V. V. Varadan, Use of combinatorial algebra for diffusion on fractals, Physical Review A, volume 34, Number 3 (1986) p. 2501, (FIG. 3).

Example

Triangle begins as:
    2;
    5,       5;
   13,      96,       13;
   35,    1170,     1170,       35;
   97,   12948,    39312,    12948,       97;
  275,  142170,   986760,   986760,   142170,     275;
  793, 1585368, 22077900, 47364480, 22077900, 1585368, 793;

Mathematica

p=2; q=3;
A[n_, 1]:= 1; A[n_, n_]:= 1; A[n_, k_]:= (3*n-3*k+1)*A[n-1, k-1] + (3*k-2)*A[n-1, k];
T[n_, m_] := (p^(n-m)*q^m + p^m*q^(n-m)) *A[n+1, m+1];
Table[T[n, m], {n, 0, 10}, {m, 0, n}]//Flatten (* modified by G. C. Greubel, May 08 2019 *)

Crossrefs

Sequence in context: A305314 A154694 A154696 * A063786 A121304 A002106

Adjacent sequences: A154695 A154696 A154697 * A154699 A154700 A154701

Keyword

nonn,tabl

Author

Roger L. Bagula and Gary W. Adamson, Jan 14 2009

Extensions

Edited by G. C. Greubel, May 08 2019

Status

approved