%I M3674 #38 Aug 14 2022 16:55:52
%S 1,1,4,40,672,16128,506880,19768320,922521600,50185175040,
%T 3120605429760,218442380083200,17004899126476800,1457562782269440000,
%U 136427876420419584000,13847429456672587776000
%N Embeddings of n-bouquet in sphere.
%D Jonathan L. Gross and Thomas W. Tucker, Enumerating graph embeddings and partial-duals by genus and Euler genus, ECA 1:1 (2021) Article S2S1. See Table 1.
%D J. L. Gross and J. Yellen, eds., Handbook of Graph Theory, CRC Press, 2004; p. 649.
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H Vincenzo Librandi, <a href="/A005431/b005431.txt">Table of n, a(n) for n = 0..200</a>
%H K. Casteels and B. Stevens, <a href="http://dx.doi.org/10.1016/j.disc.2009.03.002">Universal cycles of (n-1)-partitions of an n-set</a>, Discr. Math., 309 (2009), 5332-5340. See Cor. 12. [From _N. J. A. Sloane_, Sep 15 2009]
%H J. L. Gross et al., <a href="https://doi.org/10.1016/0095-8956(89)90030-0">Genus distributions for bouquets of circles</a>, J. Combin. Theory, B 47 (1989), 292-306.
%F a(n) = 4*(2*n-3)*(n-2)*a(n-1)/n, for n > 2, the sequence shifted by 1.
%F a(n) = 2^n * (2*n-1)!/(n+1)!, for n > 0.
%t Join[{1},Table[2^n(2n-1)!/(n+1)!,{n,20}]] (* _Harvey P. Dale_, Oct 25 2011 *)
%o (Magma) [1],[2^n * Factorial(2*n-1)/Factorial(n+1): n in [1..20]]; // _Vincenzo Librandi_, Oct 26 2011
%o (PARI) concat([1], vector(20, n, 2^n*(2*n-1)!/(n+1)!))
%o (Sage) [1] + [2^n*factorial(2*n-1)/factorial(n+1) for n in (1..20)] # _G. C. Greubel_, Nov 23 2018
%Y Cf. A123828, A128850.
%K easy,nonn,nice
%O 0,3
%A _Simon Plouffe_ and _N. J. A. Sloane_
%E Description corrected Apr 15 1998 by Wim van Dam (wimvdam(AT)mildred.physics.ox.ac.uk)