A121435
Matrix inverse of triangle A122175, where A122175(n,k) = C( k*(k+1)/2 + n-k, n-k) for n>=k>=0.
Original entry on oeis.org
1, -1, 1, 1, -2, 1, -2, 5, -4, 1, 7, -19, 18, -7, 1, -37, 104, -106, 49, -11, 1, 268, -766, 809, -406, 110, -16, 1, -2496, 7197, -7746, 4060, -1210, 216, -22, 1, 28612, -82910, 90199, -48461, 15235, -3032, 385, -29, 1, -391189, 1136923, -1244891, 678874, -220352, 46732, -6699, 638, -37, 1
Offset: 0
Triangle begins:
1;
-1, 1;
1, -2, 1;
-2, 5, -4, 1;
7, -19, 18, -7, 1;
-37, 104, -106, 49, -11, 1;
268, -766, 809, -406, 110, -16, 1;
-2496, 7197, -7746, 4060, -1210, 216, -22, 1;
28612, -82910, 90199, -48461, 15235, -3032, 385, -29, 1;
-391189, 1136923, -1244891, 678874, -220352, 46732, -6699, 638, -37, 1; ...
-
/* Matrix Inverse of A122175 */ T(n,k)=local(M=matrix(n+1,n+1,r,c,if(r>=c,binomial((c-1)*(c-2)/2+r-1,r-c)))); return((M^-1)[n+1,k+1])
-
/* Obtain by G.F. */ T(n,k)=polcoeff(1-sum(j=0, n-k-1, T(j+k,k)*x^j/(1-x+x*O(x^n))^(j*(j+1)/2+j*k+k*(k+1)/2+1)), n-k)
A121437
Matrix inverse of triangle A122177, where A122177(n,k) = C( k*(k+1)/2 + n-k + 2, n-k) for n>=k>=0.
Original entry on oeis.org
1, -3, 1, 6, -4, 1, -16, 14, -6, 1, 63, -62, 33, -9, 1, -351, 365, -215, 72, -13, 1, 2609, -2790, 1731, -642, 143, -18, 1, -24636, 26749, -17076, 6696, -1664, 261, -24, 1, 284631, -311769, 202356, -81963, 21684, -3831, 444, -31, 1, -3909926, 4305579, -2822991, 1166310, -320515, 60768, -8012, 713, -39, 1
Offset: 0
Triangle begins:
1;
-3, 1;
6, -4, 1;
-16, 14, -6, 1;
63, -62, 33, -9, 1;
-351, 365, -215, 72, -13, 1;
2609, -2790, 1731, -642, 143, -18, 1;
-24636, 26749, -17076, 6696, -1664, 261, -24, 1;
284631, -311769, 202356, -81963, 21684, -3831, 444, -31, 1; ...
-
/* Matrix Inverse of A122177 */ T(n,k)=local(M=matrix(n+1,n+1,r,c,if(r>=c,binomial((c-1)*(c-2)/2+r+1,r-c)))); return((M^-1)[n+1,k+1])
-
/* Obtain by g.f. */ T(n,k)=polcoeff(1-sum(j=0, n-k-1, T(j+k,k)*x^j/(1-x+x*O(x^n))^(j*(j+1)/2+j*k+k*(k+1)/2+3)), n-k)
A300954
Number of Dyck paths whose sequence of ascent lengths is exactly n+1, n+2, ..., 2n.
Original entry on oeis.org
1, 1, 3, 26, 425, 10647, 365512, 16067454, 864721566, 55202528425, 4083666929771, 343854336973368, 32493430569907125, 3406873823160467912, 392619681705581846700, 49342834390595374213214, 6717520607597479710109299, 984991858956314599670220717, 154785386247352261724279606367
Offset: 0
a(0) = 1: the empty path.
a(1) = 1: uudd.
a(2) = 3: uuuduuuudddddd, uuudduuuuddddd, uuuddduuuudddd.
-
a:= proc(m) option remember; local b; b:=
proc(n, i) option remember; `if`(i>=2*m, 1,
add(b(n+i-j, i+1), j=1..n+i))
end; b(0, m+1)
end:
seq(a(n), n=0..20);
-
a[m_] := a[m] = Module[{b}, b[n_, i_] := b[n, i] = If[i >= 2m, 1, Sum[b[n + i - j, i + 1], {j, 1, n + i}]]; b[0, m + 1]];
Table[a[n], {n, 0, 20}] (* Jean-François Alcover, Jun 02 2018, from Maple *)
Comments