cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A108438 Triangle read by rows: T(n,k) is number of paths from (0,0) to (3n,0) that stay in the first quadrant (but may touch the horizontal axis), consisting of steps u=(2,1), U=(1,2), or d=(1,-1) and having abscissa of the first peak equal to k.

This page as a plain text file.
%I A108438 #6 Oct 06 2015 18:01:45
%S A108438 1,1,4,3,2,1,24,18,13,7,3,1,172,130,96,55,28,12,4,1,1360,1034,772,458,
%T A108438 249,119,50,18,5,1,11444,8738,6568,3982,2244,1137,526,219,80,25,6,1,
%U A108438 100520,76994,58140,35770,20624,10836,5293,2383,981,365,119,33,7,1
%N A108438 Triangle read by rows: T(n,k) is number of paths from (0,0) to (3n,0) that stay in the first quadrant (but may touch the horizontal axis), consisting of steps u=(2,1), U=(1,2), or d=(1,-1) and having abscissa of the first peak equal to k.
%C A108438 Row n contains 2n terms. Row sums yield A027307. T(n,1)=A032349(n-1).
%H A108438 Emeric Deutsch, <a href="http://www.jstor.org/stable/2589192">Problem 10658: Another Type of Lattice Path</a>, American Math. Monthly, 107, 2000, 368-370.
%F A108438 G.f.: G = G(t,z) = 1/(1-t^2zA-tzA^2)-1, where A=1+zA^2+zA^3=(2/3)*sqrt((z+3)/z)*sin((1/3)*arcsin(sqrt(z)*(z+18)/(z+3)^(3/2)))-1/3 (the g.f. of A027307).
%e A108438 T(2,3) = 2 because we have Uuddd and uUddd.
%e A108438 Triangle begins:
%e A108438 1,1;
%e A108438 4,3,2,1;
%e A108438 24,18,13,7,3,1;
%e A108438 172,130,96,55,28,12,4,1;
%p A108438 A:=(2/3)*sqrt((z+3)/z)*sin((1/3)*arcsin(sqrt(z)*(z+18)/(z+3)^(3/2)))-1/3: G:=1/(1-t^2*z*A-t*z*A^2)-1: Gserz:=simplify(series(G,z=0,10)): for n from 1 to 8 do P[n]:=sort(coeff(Gserz,z^n)) od: > for n from 1 to 8 do seq(coeff(P[n],t^k),k=1..2*n) od; # yields sequence in triangular form
%Y A108438 Cf. A027307, A032349.
%K A108438 nonn,tabf
%O A108438 1,3
%A A108438 _Emeric Deutsch_, Jun 04 2005