A194119 - OEIS

%I #5 Mar 30 2012 18:57:40

%S 2,5,5,11,10,11,21,21,21,21,36,42,42,42,36,57,78,84,84,78,57,85,135,

%T 162,168,162,135,85,121,220,297,330,330,297,220,121,166,341,517,627,

%U 660,627,517,341,166,221,507,858,1144,1287,1287,1144,858,507,221

%N Triangular array:  T(n,k)=C(n+3,k)+C(n+3,k+3), 0<=k<=n.

%e Northwest corner:

%e 2

%e 5...5

%e 11...10...11

%e 21...21...21...21

%e 36...42...42...36

%e 57...78...84...84...78...56

%t T[n_, k_] := Binomial[n + 3, k] + Binomial[n + 3, k + 3]

%t Flatten[Table[T[n, k], {n, 0, 10}, {k, 0, n}]]

%t    (* A194119 as a sequence *)

%t TableForm[Table[T[n, k], {n, 0, 10}, {k, 0, n}]]

%t  (* A194119 as an array *)

%Y Cf. A007318, A194118, A194120.

%K nonn,tabl

%O 0,1

%A _Clark Kimberling_, Aug 16 2011