|
%I #6 Mar 30 2012 18:57:40
%S 2,4,4,7,8,7,11,15,15,11,16,26,30,26,16,22,42,56,56,42,22,29,64,98,
%T 112,98,64,29,37,93,162,210,210,162,93,37,46,130,255,372,420,372,255,
%U 130,46,56,176,385,627,792,792,627,385,176,56,67,232,561,1012,1419
%N Triangular array: T(n,k)=C(n+2,k)+C(n+2,k+2), 0<=k<=n.
%e Northwest corner:
%e 2
%e 4...4
%e 7...8...7
%e 11..15..15..11
%e 16..26..30..26..16
%t T[n_, k_] := Binomial[n + 2, k] + Binomial[n + 2, k + 2]
%t Flatten[Table[T[n, k], {n, 0, 10}, {k, 0, n}]]
%t (* A194118 as a sequence *)
%t TableForm[Table[T[n, k], {n, 0, 10}, {k, 0, n}]]
%t (* A194118 as an array *)
%Y Cf. A007318, A194119, A194120.
%K nonn,tabl
%O 0,1
%A _Clark Kimberling_, Aug 16 2011
|
