|
%I #13 Aug 18 2016 08:08:39
%S 3,3,3,3,14,3,3,25,25,3,3,36,58,36,3,3,47,102,102,47,3,3,58,157,212,
%T 157,58,3,3,69,223,377,377,223,69,3,3,80,300,608,762,608,300,80,3,3,
%U 91,388,916,1378,1378,916,388,91,3,3,102,487,1312
%N Triangle T(n,m)= 11*binomial(n,k) - 8 read by rows, 0<=k<=n.
%C Row sums are 3(n+1) + 11*(2^n - n - 1) = 3, 6, 20, 56, 136,...
%H G. C. Greubel, <a href="/A153491/b153491.txt">Table of n, a(n) for n = 0..1034</a>
%e 3;
%e 3,3;
%e 3,14,3;
%e 3,25,25,3;
%e 3,36,58,36,3;
%e 3,47,102,102,47,3;
%e 3,58,157,212,157,58,3;
%e 3,69,223,377,377,223,69,3;
%e 3,80,300,608,762,608,300,80,3;
%t T[n_, m_] = If[n == 1, 3, If[m == 0 || m == n, 3, 11*Binomial[n, k] - 8]]
%t a1 = Table[Table[T[n, k], {k, 0, n}], {n, 0, 10}];
%t Flatten[a1]
%Y Cf. A131065
%K nonn,tabl
%O 0,1
%A _Roger L. Bagula_ and _Gary W. Adamson_, Dec 27 2008
%E Definition and terms regularized. - _R. J. Mathar_, Jul 11 2012
|
