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 A191794 #16 Feb 21 2024 08:27:54 %S A191794 1,1,2,3,5,8,14,23,41,69,124,212,383,662,1200,2091,3799,6661,12122, %T A191794 21359,38919,68850,125578,222892,406865,724175,1322772,2360010, %U A191794 4313155,7711148,14099524,25252819,46192483,82863807,151628090,272385447,498578411,896774552 %N A191794 Number of length n left factors of Dyck paths having no UUDD's; here U=(1,1) and D=(1,-1). %H A191794 Helmut Prodinger, <a href="https://arxiv.org/abs/2402.13026">Dispersed Dyck paths revisited</a>, arXiv:2402.13026 [math.CO], 2024. %F A191794 a(n) = A191793(n,0). %F A191794 G.f.: g(z) = 2/(1-2*z+z^4+sqrt(1-4*z^2+2*z^4+z^8)). %F A191794 D-finite with recurrence (n+1)*a(n) +2*(-1)*a(n-1) +4*(-n+1)*a(n-2) +2*(n-3)*a(n-4) +6*a(n-5) +(n-7)*a(n-8)=0. - _R. J. Mathar_, Jul 22 2022 %e A191794 a(4)=5 because we have UDUU, UDUD, UUDU, UUUD, and UUUU, where U=(1,1) and D=(1,-1) (the path UUDD does not qualify). %p A191794 g := 2/(1-2*z+z^4+sqrt(1-4*z^2+2*z^4+z^8)): gser := series(g, z = 0, 42): seq(coeff(gser, z, n), n = 0 .. 37); %t A191794 CoefficientList[Series[2/(1-2x+x^4+Sqrt[1-4x^2+2x^4+x^8]), {x,0,40}], x] (* _Harvey P. Dale_, Jun 19 2011 *) %Y A191794 Cf. A191793. %K A191794 nonn %O A191794 0,3 %A A191794 _Emeric Deutsch_, Jun 18 2011