login
This site is supported by donations to The OEIS Foundation.

 

Logo

Annual Appeal: Today, Nov 11 2014, is the 4th anniversary of the launch of the new OEIS web site. 70,000 sequences have been added in these four years, all edited by volunteers. Please make a donation (tax deductible in the US) to help keep the OEIS running.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A110121 Triangle read by rows: T(n,k) (0<=k<=floor(n/2)) is the number of Delannoy paths of length n, having k EE's crossing the line y=x (i.e. two consecutive E steps from the line y=x+1 to the line y=x-1; a Delannoy path of length n is a path from (0,0) to (n,n), consisting of steps E=(1,0), N=(0,1) and D=(1,1)). 3
1, 3, 12, 1, 53, 10, 247, 73, 1, 1192, 474, 17, 5897, 2908, 183, 1, 29723, 17290, 1602, 24, 152020, 100891, 12475, 342, 1, 786733, 581814, 90205, 3780, 31, 4111295, 3329507, 620243, 35857, 550, 1, 21661168, 18956564, 4114406, 307192, 7351, 38 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

COMMENTS

Row n contains 1+floor(n/2) terms. Row sums are the central Delannoy numbers (A001850). T(n,0)=A110122(n). sum(k*T(n,k),k=0..floor(n/2))=A110127(n).

REFERENCES

R. A. Sulanke, Objects counted by the central Delannoy numbers, J. of Integer Sequences, 6, 2003, Article 03.1.5.

LINKS

Table of n, a(n) for n=0..41.

FORMULA

G.f.=1/[(1-zR)^2-z-tz^2*R^2], where R=1+zR+zR^2=[1-z-sqrt(1-6z+z^2)]/(2z) is the g.f. of the large Schroeder numbers (A006318).

EXAMPLE

T(2,0)=12 because, among the 13 (=A001850(2)) Delannoy paths of length 2, only NEEN has an EE crossing the line y=x.

Triangle begins:

1;

3;

12,1;

53,10;

247,73,1;

MAPLE

R:=(1-z-sqrt(1-6*z+z^2))/2/z: G:=1/((1-z*R)^2-z-t*z^2*R^2): Gser:=simplify(series(G, z=0, 15)): P[0]:=1: for n from 1 to 12 do P[n]:=coeff(Gser, z^n) od: for n from 0 to 12 do seq(coeff(t*P[n], t^k), k=1..1+floor(n/2)) od; # yields sequence in triangular form

MATHEMATICA

nmax = 11; r := (1 - z - Sqrt[1 - 6*z + z^2])/2/z; g := 1/((1 - z*r)^2 - z - t*z^2*r^2); gser = Series[g, {z, 0, nmax}]; p[0] = 1; Do[ p[n] = Coefficient[ gser, z, n] , {n, 1, nmax}]; row[n_] := Table[ Coefficient[ t*p[n], t, k], {k, 1, 1 + Floor[n/2]}]; Flatten[ Table[ row[n], {n, 0, nmax}]] (* Jean-Fran├žois Alcover, Dec 07 2011, after Maple *)

CROSSREFS

Cf. A006318, A001850, A110122, A110123, A110127.

Sequence in context: A072117 A162853 A162854 * A069522 A170857 A227106

Adjacent sequences:  A110118 A110119 A110120 * A110122 A110123 A110124

KEYWORD

nonn,tabf

AUTHOR

Emeric Deutsch, Jul 13 2005

STATUS

approved

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

Content is available under The OEIS End-User License Agreement .

Last modified November 26 11:14 EST 2014. Contains 250056 sequences.