OFFSET
0,2
COMMENTS
Given Pascal's triangle, replace the two (1, 1, 1, ...) borders with (1, 2, 3, ...).
LINKS
Georg Fischer, Table of n, a(n) for n = 0..10152 [Rows 0..141] (older version by B. D. Swan)
FORMULA
From Franck Maminirina Ramaharo, Dec 19 2018: (Start)
G.f.: (1 - (1 + x)*y - 2*x*y^2 + (3*x + 3*x^2)*y^3 - (x + x^2 + x^3)*y^4)/((1 - y)^2*(1 - x*y)^2*(1 - y - x*y)).
E.g.f.: y*exp(y) + (x*y + exp(y))*exp(x*y). (End)
EXAMPLE
First few rows of the triangle are:
1;
2, 2;
3, 2, 3;
4, 3, 3, 4;
5, 4, 6, 4, 5;
6, 5, 10, 10, 5, 6;
7, 6, 15, 20, 15, 6, 7;
...
MATHEMATICA
Flatten[Table[If[Or[k==n, k==0], n+1, Binomial[n, k]], {n, 0, 11}, {k, 0, n}]] (* Georg Fischer, Feb 18 2020 *)
PROG
(Maxima) T(n, k) := if k = 0 or k = n then n + 1 else binomial(n, k)$
create_list(T(n, k), n, 0, 12, k, 0, n); /* Franck Maminirina Ramaharo, Dec 19 2018 */
CROSSREFS
KEYWORD
AUTHOR
Gary W. Adamson, Jul 20 2007
EXTENSIONS
Edited by Franck Maminirina Ramaharo, Dec 19 2018
B-file corrected from a(1678) onwards by Georg Fischer, Feb 18 2020
STATUS
approved