A194118 - OEIS

%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