%I M1871 #37 Sep 03 2023 21:03:00
%S 1,1,2,8,46,322,2546,21870,199494,1904624,18846714,191955370,
%T 2002141126,21303422480,230553207346,2531848587534,28159614749270,
%U 316713536035464,3597509926531778,41225699113145888,476180721050626814,5539597373695447322,64863295574835126394,763984568163192551672,9047263176444565467566
%N Number of irreducible systems of meanders.
%D V. I. Arnol'd, A branched covering of CP^2->S^4, hyperbolicity and projective topology [ Russian ], Sibir. Mat. Zhurn., 29 (No. 2, 1988), 36-47 = Siberian Math. J., 29 (1988), 717-725.
%D S. K. Lando and A. K. Zvonkin, "Plane and projective meanders", Séries Formelles et Combinatoire Algébrique. Laboratoire Bordelais de Recherche Informatique, Université Bordeaux I, 1991, pp. 287-303.
%D S. K. Lando and A. K. Zvonkin, "Meanders", Selecta Mathematica Sovietica Vol. 11, Number 2, pp. 117-144, 1992.
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H Motohisa Fukuda, Ion Nechita, <a href="https://arxiv.org/abs/1609.02756">Enumerating meandric systems with large number of components</a>, arXiv preprint arXiv:1609.02756 [math.CO], 2016.
%H S. K. Lando and A. K. Zvonkin, <a href="/A005316/a005316_1.pdf">Plane and projective meanders</a>, Séries Formelles et Combinatoire Algébrique. Laboratoire Bordelais de Recherche Informatique, Université Bordeaux I, 1991, pp. 287-303. (Annotated scanned copy)
%H S. K. Lando and A. K. Zvonkin, <a href="https://doi.org/10.1016/0304-3975(93)90316-L">Plane and projective meanders</a>, Theoretical Computer Science Vol. 117, pp. 227-241, 1993.
%F A(x^2) = S(x^2)#inv(x*S(x^2)) where # is functional composition, S(x) is g.f. of A001246 (squares of Catalan numbers) and inv(.) is functional inverse. A(x) consists of even-numbered terms of A(x^2), odd terms of which are 0. - Doug McIlroy (doug(AT)cs.dartmouth.edu), Mar 22 2006
%t terms = 25;
%t S[x_] = Sum[CatalanNumber[k]^2 x^k, {k, 0, 2 terms}];
%t inv = InverseSeries[x S[x^2] + O[x]^(2 terms), x] // Normal;
%t (S[x^2] /. x -> inv) + O[x]^(2 terms) // CoefficientList[#, x]& // DeleteCases[#, 0]& (* _Jean-François Alcover_, Sep 04 2018 *)
%K nonn,nice
%O 0,3
%A _N. J. A. Sloane_, _Simon Plouffe_
%E More terms from Doug McIlroy (doug(AT)cs.dartmouth.edu), Mar 22 2006