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.
%I A201159 #17 Jan 03 2024 06:44:12 %S A201159 1,1,1,1,1,2,2,1,1,1,2,2,4,5,5,5,3,1,1,1,2,2,4,5,8,10,12,13,15,17,16, %T A201159 13,9,4,1,1,1,2,2,4,5,8,10,15,18,23,27,34,40,47,52,56,57,57,56,50,39, %U A201159 26,14,5,1,1,1,2,2,4,5,8,10,15,18,26,32,42,50,63 %N A201159 Irregular triangle read by rows: number of {0,1,2}-shifted Schroeder paths of length n and area k. %H A201159 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. See Example 4. %e A201159 Triangle begins %e A201159 1 %e A201159 1 1 %e A201159 1 1 2 2 1 %e A201159 1 1 2 2 4 5 5 5 3 1 %e A201159 1 1 2 2 4 5 8 10 12 13 15 17 16 13 9 4 1 %e A201159 ... %t A201159 gf = Expand /@ FixedPoint[1 + x # + q x (1 + q x) # (Normal@# /. {x :> q^2 x}) + O[x]^7 &, 0]; %t A201159 Flatten[Reverse[CoefficientList[#, q]] & /@ CoefficientList[gf, x]] (* _Andrey Zabolotskiy_, Jan 03 2024 *) %Y A201159 Row sums are A064641. %Y A201159 Cf. S-shifted Schroeder paths for various S: A201075 {0,1}, A201076 {0,2}, A201079 {0,2,4,6...}, A201080 {0,1,3,5...}. %K A201159 nonn,tabf %O A201159 0,6 %A A201159 _N. J. A. Sloane_, Nov 27 2011 %E A201159 More terms from _Andrey Zabolotskiy_, Jan 03 2024