A354670 Number of graph minors in the n-book graph.

13, 60, 262, 957, 2934, 7786, 18434, 39869, 80166, 151830, 273540, 472363, 786516, 1268760, 1990516, 3046799, 4562072, 6697128, 9657114, 13700817, 19151338, 26408286, 35961630, 48407353, 64465058, 84997682, 111033480, 143790447, 184703352, 235453564

Offset

1,1

Comments

Counts exclude the null graph.

Links

Table of n, a(n) for n=1..30.

Eric Weisstein's World of Mathematics, Book Graph

Eric Weisstein's World of Mathematics, Graph Minor

Index entries for linear recurrences with constant coefficients, signature (9,-36,84,-126,126,-84,36,-9,1).

Formula

From Eric W. Weisstein, Oct 20 2023: (Start)

For n > 1, a(n) = (60480 + 19152*n + 130148*n^2 + 13356*n^3 + 9947*n^4 + 7728*n^5 +1022*n^6 + 84*n^7 + 3*n^8)/20160.

G.f.: x*(-13+57*x-190*x^2+333*x^3-351*x^4+254*x^5-140*x^6+55*x^7-12*x^8+x^9)/(-1+x)^9. (End)

Mathematica

Join[{13}, Table[(60480 + 19152 n + 130148 n^2 + 13356 n^3 + 9947 n^4 + 7728 n^5 + 1022 n^6 + 84 n^7 + 3 n^8)/20160, {n, 2, 20}]] (* Eric W. Weisstein, Oct 20 2023 *)
Join[{13}, LinearRecurrence[{9, -36, 84, -126, 126, -84, 36, -9, 1}, {60, 262, 957, 2934, 7786, 18434, 39869, 80166, 151830}, 20]] (* Eric W. Weisstein, Oct 20 2023 *)
Rest@CoefficientList[Series[x(-13 + 57 x - 190 x^2 + 333 x^3 - 351 x^4 + 254 x^5 - 140 x^6 + 55 x^7 - 12 x^8 + x^9)/(-1 + x)^9, {x, 0, 20}], x] (* Eric W. Weisstein, Oct 20 2023 *)

Crossrefs

Sequence in context: A124864 A126400 A297962 * A220711 A295915 A219925

Adjacent sequences: A354667 A354668 A354669 * A354671 A354672 A354673

Keyword

nonn,easy

Author

Eric W. Weisstein, Jun 02 2022

Extensions

a(10) and beyond from Eric W. Weisstein, Oct 20 2023

Status

approved