|
%I #30 Apr 18 2020 09:21:46
%S 1,3,3,5,10,5,7,19,19,7,9,30,42,30,9,11,43,76,76,43,11,13,58,123,156,
%T 123,58,13,15,75,185,283,283,185,75,15,17,94,264,472,570,472,264,94,
%U 17,19,115,362,740,1046,1046,740,362,115,19,21,138,481,1106,1790,2096,1790,1106,481,138,21
%N Triangular array T read by rows (4-diamondization of Pascal's triangle). Step 1: t(n,k) = C(n+2,k+1) + C(n+1,k) + C(n+1,k+1) + C(n,k). Step 2: T(n,k) = t(n,k) - t(0,0) + 1. Domain: 0 <= k <= n, n >= 0.
%H Indranil Ghosh, <a href="/A027170/b027170.txt">Rows of n = 0..125 of triangle, flattened</a>
%e Triangle starts:
%e 1;
%e 3, 3;
%e 5, 10, 5;
%e 7, 19, 19, 7;
%e 9, 30, 42, 30, 9;
%e 11, 43, 76, 76, 43, 11;
%e ...
%t t[n_, k_]:= Binomial[n + 2, k + 1] + Binomial[n + 1, k] + Binomial[n + 1, k + 1] + Binomial[n ,k]; T[n_, k_] := t[n, k] - t[0, 0] + 1; Flatten[Table[T[n, k], {n, 0, 10},{k, 0, n}]] (* _Indranil Ghosh_, Mar 13 2017 *)
%o (PARI) alias(C, binomial);
%o t(n,k) = C(n+2,k+1)+C(n+1,k)+C(n+1,k+1)+C(n,k);
%o T(n,k) = t(n,k)-t(0,0)+1;
%o tabl(nn) = for (n=0, nn, for (k=0, n, print1(T(n,k), ", ")); print());
%o \\ _Michel Marcus_, Mar 13 2017
%Y Cf. A007318, A026907.
%K nonn,tabl
%O 0,2
%A _Clark Kimberling_
|
