The OEIS mourns the passing of Jim Simons and is grateful to the Simons Foundation for its support of research in many branches of science, including the OEIS.
login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A121524 Triangle read by rows: T(n,k) is the number of nondecreasing Dyck paths of semilength n and having k up steps starting at an odd level (0 <= k <= n-1). 2
1, 1, 1, 1, 3, 1, 1, 6, 5, 1, 1, 9, 15, 8, 1, 1, 12, 34, 30, 11, 1, 1, 15, 62, 85, 55, 14, 1, 1, 18, 99, 200, 185, 89, 17, 1, 1, 21, 145, 402, 510, 365, 132, 20, 1, 1, 24, 200, 718, 1220, 1160, 650, 184, 23, 1, 1, 27, 264, 1175, 2585, 3155, 2400, 1067, 245, 26, 1, 1, 30, 337 (list; table; graph; refs; listen; history; text; internal format)
OFFSET
1,5
COMMENTS
A nondecreasing Dyck path is a Dyck path for which the sequence of the altitudes of the valleys is nondecreasing.
Row sums are the odd-indexed Fibonacci numbers (A001519).
T(n,k) = A121522(n,n-k), i.e., triangle is mirror image of A121522.
Sum_{k>=0} k*T(n,k) = A121525(n).
LINKS
E. Barcucci, A. Del Lungo, S. Fezzi and R. Pinzani, Nondecreasing Dyck paths and q-Fibonacci numbers, Discrete Math., 170, 1997, 211-217.
FORMULA
G.f.: G(t,z) = z(1-tz^2)(1-2tz^2-t^2*z^3)/(1 - z - tz - 4tz^2 + 2tz^3 + 2t^2*z^3 + 6t^2*z^4 - t^3*z^6).
EXAMPLE
T(4,2)=5 because we have UDU(U)D(U)DD, U(U)DDU(U)DD, U(U)D(U)UDDD, U(U)UDD(U)DD and U(U)U(U)DDDD, where U=(1,1) and D=(1,-1) (the up steps starting at an odd level are shown between parentheses; UUDUDDUD does not qualify because it is not nondecreasing).
Triangle starts:
1;
1, 1;
1, 3, 1;
1, 6, 5, 1;
1, 9, 15, 8, 1;
1, 12, 34, 30, 11, 1;
MAPLE
g:=z*(1-t*z^2)*(1-2*t*z^2-t^2*z^3)/(1-z-t*z-4*t*z^2+2*t*z^3+2*t^2*z^3+6*t^2*z^4-t^3*z^6): gser:=simplify(series(g, z=0, 17)): for n from 1 to 12 do P[n]:=sort(expand(coeff(gser, z, n))) od: for n from 1 to 12 do seq(coeff(P[n], t, j), j=0..n-1) od; # yields sequence in triangular form
MATHEMATICA
G[t_, z_] = z*(1 - t*z^2)*(1 - 2*t*z^2 - t^2*z^3)/(1 - z - t*z - 4*t*z^2 + 2*t*z^3 + 2*t^2*z^3 + 6*t^2*z^4 - t^3*z^6);
T[n_, k_] := SeriesCoefficient[G[t, z], {z, 0, n}, {t, 0, k}];
Table[T[n, k], {n, 1, 12}, {k, 0, n - 1}] // Flatten (* Jean-François Alcover, Jan 15 2018 *)
CROSSREFS
Sequence in context: A178867 A335256 A102036 * A361682 A103141 A085478
KEYWORD
nonn,tabl
AUTHOR
Emeric Deutsch, Aug 05 2006
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 14 16:21 EDT 2024. Contains 372533 sequences. (Running on oeis4.)