# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a214692
Showing 1-1 of 1

%I A214692 #14 Oct 14 2019 11:28:55
%S A214692 1,1,2,11,71,515,3997,32488,273009,2352724,20678966,184660333,
%T A214692 1670619561,15279692008,141048655988,1312429249996,12296515232446,
%U A214692 115909188223053,1098444610424929,10459429664510189,100021237512559055,960168745226226195,9249466125601138425
%N A214692 G.f. A(x) satisfies: x = Sum_{n>=1} 1/A(x)^(4*n) * Product_{k=1..n} (1 - 1/A(x)^(2*k-1)).
%C A214692 Compare the g.f. to the identity:
%C A214692 G(x) = Sum_{n>=0} 1/G(x)^(2*n) * Product_{k=1..n} (1 - 1/G(x)^(2*k-1))
%C A214692 which holds for all power series G(x) such that G(0)=1.
%H A214692 G. C. Greubel, <a href="/A214692/b214692.txt">Table of n, a(n) for n = 0..980</a>
%H A214692 Elżbieta Liszewska, Wojciech Młotkowski, <a href="https://arxiv.org/abs/1907.10725">Some relatives of the Catalan sequence</a>, arXiv:1907.10725 [math.CO], 2019.
%F A214692 G.f. A(x) satisfies:
%F A214692 (1) 1+x = A(y) where y = x - 2*x^2 - 3*x^3 - x^4, which is the g.f. of row 2 in triangle A214690.
%F A214692 (2) x = Sum_{n>=1} 1/A(x)^(n*(n+4)) * Product_{k=1..n} (A(x)^(2*k-1) - 1).
%F A214692 (3) 1+x = A(x)^2 + A(x)^3 - A(x)^4. - _Paul D. Hanna_, Nov 15 2014
%F A214692 a(n) ~ sqrt(145/sqrt(41)-21) * ((213+41*sqrt(41))/46)^n / (16 * sqrt(Pi) * n^(3/2)). - _Vaclav Kotesovec_, Nov 29 2014
%e A214692 G.f.: A(x) = 1 + x + 2*x^2 + 11*x^3 + 71*x^4 + 515*x^5 + 3997*x^6 +...
%e A214692 The g.f. satisfies:
%e A214692 x = (A(x)-1)/A(x)^5 + (A(x)-1)*(A(x)^3-1)/A(x)^12 + (A(x)-1)*(A(x)^3-1)*(A(x)^5-1)/A(x)^21 + (A(x)-1)*(A(x)^3-1)*(A(x)^5-1)*(A(x)^7-1)/A(x)^32 +
%e A214692 (A(x)-1)*(A(x)^3-1)*(A(x)^5-1)*(A(x)^7-1)*(A(x)^9-1)/A(x)^45 +...
%e A214692 Related expansions.
%e A214692 A(x)^2 = 1 + 2*x + 5*x^2 + 26*x^3 + 168*x^4 + 1216*x^5 + 9429*x^6 +...
%e A214692 A(x)^3 = 1 + 3*x + 9*x^2 + 46*x^3 + 297*x^4 + 2148*x^5 + 16649*x^6 +...
%e A214692 A(x)^4 = 1 + 4*x + 14*x^2 + 72*x^3 + 465*x^4 + 3364*x^5 + 26078*x^6 +...
%e A214692 where 1+x = A(x)^2 + A(x)^3 - A(x)^4.
%t A214692 CoefficientList[1+InverseSeries[Series[x - 2*x^2 - 3*x^3 - x^4, {x, 0, 20}], x],x] (* _Vaclav Kotesovec_, Nov 29 2014 *)
%o A214692 (PARI) {a(n)=if(n<0, 0, polcoeff(1 + serreverse(x - 2*x^2 - 3*x^3 - x^4 +x^2*O(x^n)), n))}
%o A214692 for(n=0, 25, print1(a(n), ", "))
%o A214692 (PARI) {a(n)=local(A=[1, 1]); for(i=1, n, A=concat(A, 0); A[#A]=-polcoeff(sum(m=1, #A, 1/Ser(A)^(4*m)*prod(k=1, m, 1-1/Ser(A)^(2*k-1))), #A-1)); A[n+1]}
%o A214692 for(n=0, 25, print1(a(n), ", "))
%o A214692 (PARI) /* From 1+x = A(x)^2 + A(x)^3 - A(x)^4: */
%o A214692 {a(n)=local(A=[1,1]);for(i=1,n,A=concat(A,0);A[#A]=-Vec(Ser(A)^2+Ser(A)^3-Ser(A)^4)[#A]);A[n+1]}
%o A214692 for(n=0,25,print1(a(n) ,", "))
%Y A214692 Cf. A214690, A214693, A214694, A214695, A001002 (variant).
%K A214692 nonn
%O A214692 0,3
%A A214692 _Paul D. Hanna_, Jul 26 2012

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE