OFFSET
0,5
LINKS
G. C. Greubel, Rows n = 0..100 of triangle, flattened
FORMULA
T(n,k) = 3*binomial(n,k) - 2*binomial(floor((n+k)/2), k). - G. C. Greubel, Jul 12 2019
EXAMPLE
First few rows of the triangle:
1;
1, 1;
1, 4, 1;
1, 5, 7, 1;
1, 8, 12, 10, 1;
1, 9, 24, 22, 13, 1;
1, 12, 33, 52, 35, 16, 1;
...
MATHEMATICA
With[{B=Binomial}, Table[3*B[n, k] - 2*B[Floor[(n+k)/2], k], {n, 0, 12}, {k, 0, n}]]//Flatten (* G. C. Greubel, Jul 12 2019 *)
PROG
(PARI) b=binomial; T(n, k) = 3*b(n, k) - 2*b((n+k)\2, k);
for(n=0, 12, for(k=0, n, print1(T(n, k), ", "))) \\ G. C. Greubel, Jul 12 2019
(Magma) B:=Binomial; [3*B(n, k) - 2*B(Floor((n+k)/2), k): k in [0..n], n in [0..12]]; // G. C. Greubel, Jul 12 2019
(Sage) b=binomial; [[3*b(n, k) - 2*b(floor((n+k)/2), k) for k in (0..n)] for n in (0..12)] # G. C. Greubel, Jul 12 2019
(GAP) B:=Binomial;; Flat(List([0..12], n-> List([0..n], k-> 3*B(n, k) - 2*B(Int((n+k)/2), k) ))); # G. C. Greubel, Jul 12 2019
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Gary W. Adamson, Jun 21 2007
EXTENSIONS
More terms added by G. C. Greubel, Jul 12 2019
STATUS
approved