%I A154690
%S A154690 2,3,3,5,8,5,9,18,18,9,17,40,48,40,17,33,90,120,120,90,33,65,204,300,
%T A154690 320,300,204,65,129,462,756,840,840,756,462,129,257,1040,1904,2240,2240,
%U A154690 2240,1904,1040,257,513,2322,4752,6048,6048,6048,6048,4752,2322,513
%N A154690 Generalized Sierpinski-Pascal gasket triangular sequence:p = 2; q = 1;
t(n,m)=(p^(n - m)*q^m + p^m*q^(n - m))*Binomial[n, m].
%C A154690 Row sums are:A025192 :
%C A154690 {2, 6, 18, 54, 162, 486, 1458, 4374, 13122, 39366, 118098,...}
%D A154690 A. Lakhtakia,R. Messier, V.K. Varadan,V.V. Varadan, "Use of combinatorial
algebra for diffusion on fractals", Physical Review A, volume34,
Number3, Sept 1986,page 2502, (FIG. 3)
%F A154690 p = 2; q = 1; t(n,m)=(p^(n - m)*q^m + p^m*q^(n - m))*Binomial[n, m].
%e A154690 {2},
%e A154690 {3, 3},
%e A154690 {5, 8, 5},
%e A154690 {9, 18, 18, 9},
%e A154690 {17, 40, 48, 40, 17},
%e A154690 {33, 90, 120, 120, 90, 33},
%e A154690 {65, 204, 300, 320, 300, 204, 65},
%e A154690 {129, 462, 756, 840, 840, 756, 462, 129},
%e A154690 {257, 1040, 1904, 2240, 2240, 2240, 1904, 1040, 257},
%e A154690 {513, 2322, 4752, 6048, 6048, 6048, 6048, 4752, 2322, 513},
%e A154690 {1025, 5140, 11700, 16320, 16800, 16128, 16800, 16320, 11700, 5140, 1025}
%t A154690 Clear[t, p, q, n, m]; p = 2; q = 1;
%t A154690 t[n_, m_] = (p^(n - m)*q^m + p^m*q^(n - m))*Binomial[n, m];
%t A154690 Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}];
%t A154690 Flatten[%]
%Y A154690 A025192
%Y A154690 Sequence in context: A035068 A153643 A053218 this_sequence A046937 A069831
A017820
%Y A154690 Adjacent sequences: A154687 A154688 A154689 this_sequence A154691 A154692
A154693
%K A154690 nonn,tabl,uned
%O A154690 0,1
%A A154690 Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Jan
14 2009
|