|
%I #6 Mar 30 2012 18:57:40
%S 2,6,6,16,12,16,36,28,28,36,71,64,56,64,71,127,135,120,120,135,127,
%T 211,262,255,240,255,262,211,331,473,517,495,495,517,473,331,496,804,
%U 990,1012,990,1012,990,804,496,716,1300,1794,2002,2002,2002,2002
%N Triangular array: T(n,k)=C(n+4,k)+C(n+4,k+4), 0<=k<=n.
%e Northwest corner:
%e 2
%e 6...6
%e 16..12..16
%e 36..28..28..36
%e 71..64..56..64..71
%t T[n_, k_] := Binomial[n + 4, k] + Binomial[n + 4, k + 4]
%t Flatten[Table[T[n, k], {n, 0, 10}, {k, 0, n}]]
%t (* A194120 as a sequence *)
%t TableForm[Table[T[n, k], {n, 0, 10}, {k, 0, n}]]
%t (* A194120 as an array *)
%Y Cf. A194118, A194119.
%K nonn,tabl
%O 0,1
%A _Clark Kimberling_, Aug 16 2011
|
