OFFSET
0,3
LINKS
Andrew Vince and Miklos Bona, The Number of Ways to Assemble a Graph, arXiv preprint, arXiv:1204.3842 [math.CO], 2012. See Theorem 23.
Andrew Vince and Miklos Bona, The Number of Ways to Assemble a Graph, The Electronic Journal of Combinatorics, Volume 19, Issue 4 (2012), Article P54.
Eric Weisstein's World of Mathematics, Assembly Number
Eric Weisstein's World of Mathematics, Complete Bipartite Graph
FORMULA
Define b(n) = (2*(6*n^2 - 12*n + 5)/n^2)*b(n-1) - ((4*n^3 - 20*n^2 + 29*n - 10)/(n^3 - n^2))*b(n-2), with b(0) = 0, b(1) = 1 and b(2) = 5/2. Then a(n) = n!*n!*b(n). - Franck Maminirina Ramaharo, Jan 28 2019
MATHEMATICA
Table[n!^2 SeriesCoefficient[1 - Sqrt[(1 - x)^2 + (1 - y)^2 - 1], {x, 0, n}, {y, 0, n}], {n, 10}] (* Eric W. Weisstein, Mar 01 2023 *)
With[{nterms = 10}, RecurrenceTable[{b[1] == 1, b[2] == 5/2, b[n] == 2 (6 n^2 - 12 n + 5)/n^2 b[n - 1] - (4 n^3 - 20 n^2 + 29 n - 10)/(n^3 - n^2) b[n - 2]}, b, {n, nterms}] Range[nterms]!^2] (* Eric W. Weisstein, Mar 01 2023 *)
PROG
(Maxima)
(b[0] : 0, b[1] : 1, b[2] : 5/2, b[n] := (2*(6*n^2 - 12*n + 5)/n^2)*b[n - 1] - ((4*n^3 - 20*n^2 + 29*n - 10)/(n^3 - n^2))*b[n - 2])$
a(n) := n!*n!*b[n]$ /* Franck Maminirina Ramaharo, Jan 28 2019 */
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Oct 08 2012
EXTENSIONS
More terms from Franck Maminirina Ramaharo, Jan 28 2019
STATUS
approved