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.

A201075 Irregular triangle read by rows: number of Schroeder paths of length n and weighted area n^2-k.

This page as a plain text file.
%I A201075 #16 Jan 03 2024 06:47:31
%S A201075 1,1,1,1,1,1,2,1,1,1,1,2,3,4,3,3,3,1,1,1,1,2,3,4,5,7,8,9,10,11,10,7,6,
%T A201075 4,1,1,1,1,2,3,4,5,7,10,13,14,17,22,25,27,31,34,34,33,31,28,21,14,10,
%U A201075 5,1,1,1,1,2,3,4,5,7,10,13,16,21,26,31,37,45,54
%N A201075 Irregular triangle read by rows: number of Schroeder paths of length n and weighted area n^2-k.
%C A201075 0 <= k <= n^2.
%H A201075 Brian Drake, <a href="https://doi.org/10.1016/j.disc.2008.11.020">Limits of areas under lattice paths</a>, Discrete Math. 309 (2009), no. 12, 3936-3953.
%e A201075 Triangle begins:
%e A201075 1
%e A201075 1 1
%e A201075 1 1 1 2 1
%e A201075 1 1 1 2 3 4 3 3 3 1
%e A201075 1 1 1 2 3 4 5 7 8 9 10 11 10 7 6 4 1
%e A201075 ...
%t A201075 gf = Expand /@ FixedPoint[1 + x # (1 + q Normal@# /. {x :> q^2 x}) + O[x]^7 &, 0];
%t A201075 Flatten[Reverse[CoefficientList[#, q]] & /@ CoefficientList[gf, x]] (* _Andrey Zabolotskiy_, Jan 03 2024 *)
%Y A201075 Mirror image of A129179.
%Y A201075 Cf. A129176, A201076, A201079, A201080, A201159.
%K A201075 nonn,tabf
%O A201075 0,7
%A A201075 _N. J. A. Sloane_, Nov 26 2011
%E A201075 More terms from _Andrey Zabolotskiy_, Jan 03 2024