White Bishop Graph

Author

Eric W. Weisstein
August 9, 2017

This notebook downloaded from http://mathworld.wolfram.com/notebooks/GraphTheory/WhiteBishopGraph.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/WhiteBishopGraph.html.

©2017 Wolfram Research, Inc. except for portions noted otherwise

Graphics

Graphs.m

GraphicsRow[Table[StyleGraphs@WhiteBishopGraph[n,n],{n,5}],Dividers->All,ImageSize->500]

GraphData "Grid" (degenerate)

GraphicsRow[Table[StyleGraphs@GraphData[{"WhiteBishop",{n,n}},"Graph","Degenerate"][[-1]],{n,5}],Dividers->All,ImageSize->500]

GraphData default

GraphicsRow[Table[StyleGraphs@GraphData[{"WhiteBishop",{n,n}}]],{n,5}],Dividers->All,ImageSize->500]

Curved edges

Table[GraphData[{"WhiteBishop",{n,n}},"Graph","All"][[-1]]/.g_Graph:>AdjacencyGraph[AdjacencyMatrix[g],EdgeShapeFunction->"Line",DirectedEdges->True,VertexCoordinates->GraphEmbedding[g]],{n,2,6}]

White vs Black

{BlackBishopGraph[3,5],WhiteBishopGraph[3,5]}

{BlackBishopGraph[3,4],WhiteBishopGraph[3,4]}

{BlackBishopGraph[4,6],WhiteBishopGraph[4,6]}

Special cases

Note: 1×1 white bishop graph is the null graph (1×1 chessboard is black)

Flatten[Table[{m,n}->RecognizeGraph@WhiteBishopGraph[m,n],{n,10},{m,n}]]

Grid[DeleteCases[Cases[Flatten[Table[{{m,n},WhiteBishopGraph[m,n]},{n,7},{m,n}],1]/.g_Graph:>(ToEntity[g]/._ToEntity:>{}),{i_,e_Entity}:>{i,CanonicalName[e]}],{_,{"BlackBishop"|"WhiteBishop",_}}],Dividers->All,Alignment->Left]

Properties m×n

Properties n×n

Acyclic

Table[GraphData[{"WhiteBishop",{n,n}},"Acyclic"],{n,2,10}]

Arboricity

Possibly 1, 2, 2, 3, 4, 4, 5, 6, 6, ...

seq=Table[GraphData[{"WhiteBishop",{n,n}},"Arboricity"],{n,2,10}]

ArcTransitivity

Table[GraphData[{"WhiteBishop",{n,n}},"ArcTransitivity"],{n,2,10}]

ArcTransitive

Table[GraphData[{"WhiteBishop",{n,n}},"ArcTransitive"],{n,2,10}]

ArcTransitivity

Table[GraphData[{"WhiteBishop",{n,n}},"ArcTransitivity"],{n,2,10}]

AutomorphismCount

A158302

Table[GraphData[{"WhiteBishop",{n,n}},"AutomorphismCount"],{n,2,10}]

seq=Table[GroupOrder[GraphAutomorphismGroup[WhiteBishopGraph[n,n]]],{n,2,20}]

FindLinearRecurrence[seq]

LinearRecurrence[{0,4},{

Table[(2^(2Ceiling[n/2]-1)),{n,20}]

(2^(2Ceiling[Range[20]/2]-1))

Rest[%]==seq

BalabanIndex

Table[GraphData[{"WhiteBishop",{n,n}},"BalabanIndex"],{n,2,7}]

Bandwidth

Table[GraphData[{"WhiteBishop",{n,n}},"Bandwidth"],{n,2,10}]

BridgeCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"BridgeCount"],{n,2,10}]

BurningNumber

seq=Table[GraphData[{"WhiteBishop",{n,n}},"BurningNumber"],{n,2,10}]

CharacteristicPolynomial

(poly=Factor@Table[GraphData[{"WhiteBishop",{n,n}},"CharacteristicPolynomial"],{n,k0=2,kmax=10}]/.f_Function:>f[x])//Column

coef=Factor/@FindLinearRecurrence[poly]

ToPolynomialRecurrence[p,x,n,coef]

FormattedPolynomialRecurrence[p,x,n,coef]//TraditionalForm

TeXForm[%]

LinearRecurrence[coef,poly,{2-k0,Length[coef]-k0+1}]

FullSimplify[RSolve[Prepend[Table[p[k+k0-1,x]==poly[[k]],{k,Length[coef]}],ToPolynomialRecurrence[p,x,n,coef]],p[n,x],n],n∈Integers&&n>0]

gf=Factor[(z^k0)FindGeneratingFunction[poly,z]]

FullSimplify[SeriesCoefficient[gf,{z,0,n}],n>0]

poly2=Table[XXX,{n,k0,kmax}]

FullSimplify[poly2-poly]

ChordlessCycleCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"ChordlessCycleCount"],{n,2,10}]

FindSequenceFunction[seq,n-1]

ChromaticInvariant

seq=Table[GraphData[{"WhiteBishop",{n,n}},"ChromaticInvariant"],{n,2,10}]

FindSequenceFunction[Drop[seq,2],n]

ChromaticNumber

seq=Table[GraphData[{"WhiteBishop",{n,n}},"ChromaticNumber"],{n,2,10}]

ChromaticPolynomial

(poly=Factor@Table[GraphData[{"WhiteBishop",{n,n}},"ChromaticPolynomial"],{n,k0=2,kmax=10}]/.f_Function:>f[x])//Column

coef=Factor/@FindLinearRecurrence[poly]

ToPolynomialRecurrence[p,x,n,coef]

FormattedPolynomialRecurrence[p,x,n,coef]//TraditionalForm

TeXForm[%]

LinearRecurrence[coef,poly,{2-k0,Length[coef]-k0+1}]

FullSimplify[RSolve[Prepend[Table[p[k+k0-1,x]==poly[[k]],{k,Length[coef]}],ToPolynomialRecurrence[p,x,n,coef]],p[n,x],n],n∈Integers&&n>0]

gf=Factor[(z^k0)FindGeneratingFunction[poly,z]]

FullSimplify[SeriesCoefficient[gf,{z,0,n}],n>0]

poly2=Table[XXX,{n,k0,kmax}]

FullSimplify[poly2-poly]

Circumference

A007590

seq=Table[GraphData[{"WhiteBishop",{n,n}},"Circumference"],{n,2,10}]

FindSequenceFunction[seq,n-1]

Table[Floor[n^2/2],{n,2,20}]

Classes

Intersection@@(GraphData[#,"Classes"]&/@GraphData["WhiteBishop"])

CliqueCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"CliqueCount"],{n,2,10}]

FindSequenceFunction[seq,n-1]

gf=(x^2) FindGeneratingFunction[seq,x]

SeriesCoefficient[gf,{x,0,n}]//FullSimplify

CliqueCoveringNumber

seq=Table[GraphData[{"WhiteBishop",{n,n}},"CliqueCoveringNumber"],{n,2,10}]

FindSequenceFunction[Rest@seq,n-3]//FullSimplify

gf=x FindGeneratingFunction[seq,x]

FullSimplify[SeriesCoefficient[gf,{x,0,n}],n>0]

CliqueNumber

seq=Table[GraphData[{"WhiteBishop",{n,n}},"CliqueNumber"],{n,2,10}]

CliquePolynomial

(poly=Factor@Table[GraphData[{"WhiteBishop",{n,n}},"CliquePolynomial"][x],{n,k0=2,kmax=10}])//Column

coef=Factor/@FindLinearRecurrence[poly]

ToPolynomialRecurrence[p,x,n,coef]

FormattedPolynomialRecurrence[p,x,n,coef]//TraditionalForm

TeXForm[%]

LinearRecurrence[coef,poly,{2-k0,Length[coef]-k0+1}]

FullSimplify[RSolve[Prepend[Table[p[k+k0-1,x]==poly[[k]],{k,Length[coef]}],ToPolynomialRecurrence[p,x,n,coef]],p[n,x],n],n∈Integers&&n>0]

gf=Factor[(z^k0)FindGeneratingFunction[poly,z]]

FullSimplify[SeriesCoefficient[gf,{z,0,n}],n>0]

poly2=Table[XXX,{n,k0,kmax}]

FullSimplify[poly2-poly]

ComplementOddChordlessCycleCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"ComplementOddChordlessCycleCount"],{n,2,10}]

FindSequenceFunction[Take[seq,{3,5}],n]

ConnectedComponentCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"ConnectedComponentCount"],{n,2,10}]

ConnectedDominatingSetCount

A289169

seq=Table[GraphData[{"WhiteBishop",{n,n}},"ConnectedDominatingSetCount"],{n,2,10}]

FindSequenceFunction[DeleteMissing[seq],n-1]

ConnectedDominationNumber

seq=Table[GraphData[{"WhiteBishop",{n,n}},"ConnectedDominationNumber"],{n,2,10}]

FindSequenceFunction[seq,n-1]

ConnectedDominationPolynomial

(poly=Factor@Table[GraphData[{"WhiteBishop",{n,n}},"ConnectedDominationPolynomial"],{n,k0=3,kmax=10}]/.f_Function:>f[x])//Column

coef=Factor/@FindLinearRecurrence[poly]

ToPolynomialRecurrence[p,x,n,coef]

FormattedPolynomialRecurrence[p,x,n,coef]//TraditionalForm

TeXForm[%]

LinearRecurrence[coef,poly,{2-k0,Length[coef]-k0+1}]

FullSimplify[RSolve[Prepend[Table[p[k+k0-1,x]==poly[[k]],{k,Length[coef]}],ToPolynomialRecurrence[p,x,n,coef]],p[n,x],n],n∈Integers&&n>0]

gf=Factor[(z^k0)FindGeneratingFunction[poly,z]]

FullSimplify[SeriesCoefficient[gf,{z,0,n}],n>0]

poly2=Table[XXX,{n,k0,kmax}]

FullSimplify[poly2-poly]

ConnectedInducedSubgraphCount

A290769

seq=Table[GraphData[{"WhiteBishop",{n,n}},"ConnectedInducedSubgraphCount"],{n,2,10}]

FindSequenceFunction[DeleteCases[seq,_Missing],n]

ConnectedInducedSubgraphPolynomial

(poly=DeleteCases[Factor@Table[GraphData[{"WhiteBishop",{n,n}},"ConnectedInducedSubgraphPolynomial"][x],{n,k0=2,kmax=10}],_Missing[x]])//Column

coef=Factor/@FindLinearRecurrence[poly]

ToPolynomialRecurrence[p,x,n,coef]

FormattedPolynomialRecurrence[p,x,n,coef]//TraditionalForm

TeXForm[%]

LinearRecurrence[coef,poly,{2-k0,Length[coef]-k0+1}]

FullSimplify[RSolve[Prepend[Table[p[k+k0-1,x]==poly[[k]],{k,Length[coef]}],ToPolynomialRecurrence[p,x,n,coef]],p[n,x],n],n∈Integers&&n>0]

gf=Factor[(z^k0)FindGeneratingFunction[poly,z]]

FullSimplify[SeriesCoefficient[gf,{z,0,n}],n>0]

poly2=Table[XXX,{n,6}]

FullSimplify[poly2-poly]

CrossingNumber

seq=Table[GraphData[{"WhiteBishop",{n,n}},"CrossingNumber"],{n,2,10}]

CycleCount

A234630

seq=Table[GraphData[{"WhiteBishop",{n,n}},"CycleCount"],{n,2,10}]

seq={1,53,4943,12300529,134480655082,84649132742336262,212615053823090089357638};

FindLinearRecurrence[DeleteMissing[seq]]

FindSequenceFunction[DeleteMissing[seq],n-2]

gf=(x^3)FindGeneratingFunction[DeleteMissing[seq],x]

CyclePolynomial

(poly=Factor@Table[GraphData[{"WhiteBishop",{n,n}},"CyclePolynomial"][x],{n,k0=3,kmax=10}])//Column

coef=Factor/@FindLinearRecurrence[poly]

ToPolynomialRecurrence[p,x,n,coef]

FormattedPolynomialRecurrence[p,x,n,coef]//TraditionalForm

TeXForm[%]

LinearRecurrence[coef,poly,{2-k0,Length[coef]-k0+1}]

FullSimplify[RSolve[Prepend[Table[p[k+k0-1,x]==poly[[k]],{k,Length[coef]}],ToPolynomialRecurrence[p,x,n,coef]],p[n,x],n],n∈Integers&&n>0]

gf=Factor[(z^k0)FindGeneratingFunction[poly,z]]

FullSimplify[SeriesCoefficient[gf,{z,0,n}],n>0]

poly2=Table[XXX,{n,k0,kmax}]

FullSimplify[poly2-poly]

Cyclic

Table[GraphData[{"WhiteBishop",{n,n}},"Cyclic"],{n,2,10}]

CyclomaticNumber

seq=Table[GraphData[{"WhiteBishop",{n,n}},"CyclomaticNumber"],{n,2,10}]

FindSequenceFunction[Drop[seq,2],n]//FullSimplify

Table[(1/18) (45-27 (2^n)+7 (3^n)),{n,2,10}]

DetourIndex

seq=Table[GraphData[{"WhiteBishop",{n,n}},"DetourIndex"],{n,2,10}]

FindSequenceFunction[{1,35,550,5566,49726},n]

FindGeneratingFunction[{1,35,550,5566,49726},x]

DetourMatrix

MatrixForm/@Table[GraphData[{"WhiteBishop",{n,n}},"DetourMatrix"],{n,2,10}]

MatrixForm/@Table[SparseArray[{i_,j_}:>Abs[i-j],n],{n,2,10}]

DetourPolynomial

(poly=Factor@Table[GraphData[{"WhiteBishop",{n,n}},"DetourPolynomial"][x],{n,k0=2,kmax=10}])//Column

coef=Factor/@FindLinearRecurrence[poly]

ToPolynomialRecurrence[p,x,n,coef]

FormattedPolynomialRecurrence[p,x,n,coef]//TraditionalForm

TeXForm[%]

LinearRecurrence[coef,poly,{2-k0,Length[coef]-k0+1}]

FullSimplify[RSolve[Prepend[Table[p[k+k0-1,x]==poly[[k]],{k,Length[coef]}],ToPolynomialRecurrence[p,x,n,coef]],p[n,x],n],n∈Integers&&n>0]

gf=Factor[(z^k0)FindGeneratingFunction[poly,z]]

FullSimplify[SeriesCoefficient[gf,{z,0,n}],n>0]

poly2=Table[XXX,{n,k0,kmax}]

FullSimplify[poly2-poly]

Diameter

seq=Table[GraphData[{"WhiteBishop",{n,n}},"Diameter"],{n,2,10}]

DistanceMatrix

MatrixForm/@Table[GraphData[{"WhiteBishop",{n,n}},"DistanceMatrix"],{n,2,10}]

MatrixForm/@Table[SparseArray[{i_,j_}:>Abs[i-j],n],{n,2,10}]

DistancePolynomial

(poly=Factor@Table[GraphData[{"WhiteBishop",{n,n}},"DistancePolynomial"][x],{n,k0=2,kmax=10}])//Column

coef=Factor/@FindLinearRecurrence[poly]

ToPolynomialRecurrence[p,x,n,coef]

FormattedPolynomialRecurrence[p,x,n,coef]//TraditionalForm

TeXForm[%]

LinearRecurrence[coef,poly,{2-k0,Length[coef]-k0+1}]

FullSimplify[RSolve[Prepend[Table[p[k+k0-1,x]==poly[[k]],{k,Length[coef]}],ToPolynomialRecurrence[p,x,n,coef]],p[n,x],n],n∈Integers&&n>0]

gf=Factor[(z^k0)FindGeneratingFunction[poly,z]]

FullSimplify[SeriesCoefficient[gf,{z,0,n}],n>0]

poly2=Table[XXX,{n,k0,kmax}]

FullSimplify[poly2-poly]

DistinguishingNumber

seq=Table[GraphData[{"WhiteBishop",{n,n}},"DistinguishingNumber"],{n,2,10}]

DomaticNumber

seq=Table[GraphData[{"WhiteBishop",{n,n}},"DomaticNumber"],{n,2,10}]

DominatingSetCount

A289170

seq=Table[GraphData[{"WhiteBishop",{n,n}},"DominatingSetCount"],{n,2,10}]

DominationNumber

A004524

seq=Table[GraphData[{"WhiteBishop",{n,n}},"DominationNumber"],{n,2,10}]

(seq=Monitor[Table[DominationNumber[WhiteBishopGraph[n,n]],{n,2,18}],n])//Timing

DominationPolynomial

(poly=Factor@Table[GraphData[{"WhiteBishop",{n,n}},"DominationPolynomial"],{n,k0=2,kmax=10}]/.f_Function:>f[x])//Column

coef=Factor/@FindLinearRecurrence[poly]

ToPolynomialRecurrence[p,x,n,coef]

FormattedPolynomialRecurrence[p,x,n,coef]//TraditionalForm

TeXForm[%]

LinearRecurrence[coef,poly,{2-k0,Length[coef]-k0+1}]

FullSimplify[RSolve[Prepend[Table[p[k+k0-1,x]==poly[[k]],{k,Length[coef]}],ToPolynomialRecurrence[p,x,n,coef]],p[n,x],n],n∈Integers&&n>0]

gf=Factor[(z^k0)FindGeneratingFunction[poly,z]]

FullSimplify[SeriesCoefficient[gf,{z,0,n}],n>0]

poly2=Table[XXX,{n,k0,kmax}]

FullSimplify[poly2-poly]

EdgeChromaticNumber

seq=Table[GraphData[{"WhiteBishop",{n,n}},"EdgeChromaticNumber"],{n,2,10}]

FindSequenceFunction[seq,n-1]//FullSimplify

gf=x FindGeneratingFunction[seq,x]

EdgeConnectivity

Table[GraphData[{"WhiteBishop",{n,n}},"EdgeConnectivity"],{n,2,10}]

EdgeCount

A289179

seq=Table[GraphData[{"WhiteBishop",{n,n}},"EdgeCount"],{n,2,10}]

(seq=Monitor[Table[EdgeCount[WhiteBishopGraph[n,n]],{n,2,30}],n])//Timing

coef=FindLinearRecurrence[seq]

Take[seq,Length[coef]]

LinearRecurrence[{2,1,-4,1,2,-1},{0,1,4,14,28,55},20]

Table[(n-1) (4 (n^2)-2n-3+3(((-1))^n))/12,{n,50}]

ToString[(n-1) (4 (n^2)-2n-3+3(((-1))^n))/12,InputForm]

gf=x FindGeneratingFunction[seq,x]

ToString[gf,InputForm]

Simplify[SeriesCoefficient[gf,{x,0,n}],n>0]

CoefficientList[Series[(((x+4 (x^2)+(x^3)+2 (x^4)))/((((-1+x))^4) (((1+x))^2))),{x,0,20}],x]

EdgeCoverCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"EdgeCoverCount"],{n,2,10}]

EdgeCoverNumber

seq=Table[GraphData[{"WhiteBishop",{n,n}},"EdgeCoverNumber"],{n,2,10}]

FindSequenceFunction[seq,n-1]

x FindGeneratingFunction[seq,x]

EdgeCoverPolynomial

(poly=Factor@Table[GraphData[{"WhiteBishop",{n,n}},"EdgeCoverPolynomial"][x],{n,k0=2,kmax=10}])//Column

coef=Factor/@FindLinearRecurrence[poly]

ToPolynomialRecurrence[p,x,n,coef]

FormattedPolynomialRecurrence[p,x,n,coef]//TraditionalForm

TeXForm[%]

LinearRecurrence[coef,poly,{2-k0,Length[coef]-k0+1}]

FullSimplify[RSolve[Prepend[Table[p[k+k0-1,x]==poly[[k]],{k,Length[coef]}],ToPolynomialRecurrence[p,x,n,coef]],p[n,x],n],n∈Integers&&n>0]

gf=Factor[(z^k0)FindGeneratingFunction[poly,z]]

FullSimplify[SeriesCoefficient[gf,{z,0,n}],n>0]

poly2=Table[XXX,{n,k0,kmax}]

FullSimplify[poly2-poly]

EulerianCycleCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"EulerianCycleCount"],{n,2,10}]

FaceCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"FaceCount"],{n,2,10}]

FlowPolynomial

(poly=Factor@Table[GraphData[{"WhiteBishop",{n,n}},"FlowPolynomial"][x],{n,k0=2,kmax=10}])//Column

coef=Factor/@FindLinearRecurrence[poly]

ToPolynomialRecurrence[p,x,n,coef]

FormattedPolynomialRecurrence[p,x,n,coef]//TraditionalForm

TeXForm[%]

LinearRecurrence[coef,poly,{2-k0,Length[coef]-k0+1}]

FullSimplify[RSolve[Prepend[Table[p[k+k0-1,x]==poly[[k]],{k,Length[coef]}],ToPolynomialRecurrence[p,x,n,coef]],p[n,x],n],n∈Integers&&n>0]

gf=Factor[(z^k0)FindGeneratingFunction[poly,z]]

FullSimplify[SeriesCoefficient[gf,{z,0,n}],n>0]

poly2=Table[XXX,{n,k0,kmax}]

FullSimplify[poly2-poly]

FractionalChromaticNumber

seq=Table[GraphData[{"WhiteBishop",{n,n}},"FractionalChromaticNumber"],{n,2,10}]

RSolve[{a[n]==a[n-1]+1/a[n-1],a[1]==1},a[n],n]

RecurrenceTable[{a[n]==a[n-1]+1/a[n-1],a[1]==1},a,{n,2,10}]

FractionalEdgeChromaticNumber

seq=Table[GraphData[{"WhiteBishop",{n,n}},"FractionalEdgeChromaticNumber"],{n,2,10}]

FindSequenceFunction[Drop[seq,3],n-3]

Table[3 2^(n-3)-1,{n,2,10}]

Girth

seq=Table[GraphData[{"WhiteBishop",{n,n}},"Girth"],{n,2,10}]

Gonality

seq=Table[GraphData[{"WhiteBishop",{n,n}},"Gonality"],{n,2,10}]

HamiltonConnected

seq=Table[GraphData[{"WhiteBishop",{n,n}},"HamiltonConnected"],{n,2,10}]

HamiltonDecompositionCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"HamiltonDecompositionCount"],{n,2,10}]

Hamiltonian

Table[GraphData[{"WhiteBishop",{n,n}},"Hamiltonian"],{n,2,10}]

HamiltonianCycleCount

1/2 * A282890

seq=Table[GraphData[{"WhiteBishop",{n,n}},"HamiltonianCycleCount"],{n,2,10}]

HamiltonianNumber

seq=Table[GraphData[{"WhiteBishop",{n,n}},"HamiltonianNumber"],{n,2,10}]

FindSequenceFunction[seq,n-1]

gf=x FindGeneratingFunction[seq,x]

FullSimplify[SeriesCoefficient[gf,{x,0,n}],n>0]

Table[-1+3 (2^(-2+n)),{n,2,10}]

HamiltonianPathCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"HamiltonianPathCount"],{n,2,10}]

HamiltonianWalkCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"HamiltonianWalkCount"],{n,2,10}]

HararyIndex

seq=Table[GraphData[{"WhiteBishop",{n,n}},"HararyIndex"],{n,2,10}]

FindSequenceFunction[seq,n-1]//FunctionExpand

FindGeneratingFunction[seq,x]

SeriesCoefficient[((2 x-5 (x^2)-5 x -(x^4))/(2 (1-10 x+35 (x^2)-50 x +24 (x^4))))x,{x,0,n}]//FullSimplify

SeriesCoefficient[((2 x-5 (x^2)-5 x -(x^4))/(2 (1-10 x+35 (x^2)-50 x +24 (x^4)))),{x,0,n}]//FullSimplify

Table[(3/4)-15 (2^(-4+n))+((7 (3^(-2+n)))/4)+9 (4^(-3+n)),{n,2,10}]

Table[(1/48)(36-45 (2^n)+28 (3^(n-1))+27 (4^(n-1))),{n,2,10}]

HexagonCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"HexagonCount"],{n,2,10}]

FindSequenceFunction[seq,n-1]

FindSequenceFunction[Drop[seq,3],n-3]

FindGeneratingFunction[seq,x]

IdiosyncraticPolynomial

(poly=Factor@Table[GraphData[{"WhiteBishop",{n,n}},"IdiosyncraticPolynomial"][x,y],{n,k0=2,kmax=10}])//Column

coef=Factor/@FindLinearRecurrence[poly]

ToPolynomialRecurrence[p,x,n,coef]

FormattedPolynomialRecurrence[p,x,n,coef]//TraditionalForm

TeXForm[%]

LinearRecurrence[coef,poly,{2-k0,Length[coef]-k0+1}]

FullSimplify[RSolve[Prepend[Table[p[k+k0-1,x]==poly[[k]],{k,Length[coef]}],ToPolynomialRecurrence[p,x,n,coef]],p[n,x],n],n∈Integers&&n>0]

gf=Factor[(z^k0)FindGeneratingFunction[poly,z]]

FullSimplify[SeriesCoefficient[gf,{z,0,n}],n>0]

poly2=Table[XXX,{n,k0,kmax}]

FullSimplify[poly2-poly]

IndependenceNumber

seq=Table[GraphData[{"WhiteBishop",{n,n}},"IndependenceNumber"],{n,2,10}]

FindSequenceFunction[seq,n-1]

IndependencePolynomial

(poly=Factor@Table[GraphData[{"WhiteBishop",{n,n}},"IndependencePolynomial"][x],{n,k0=2,kmax=10}])//Column

coef=Factor/@FindLinearRecurrence[poly]

ToPolynomialRecurrence[p,x,n,coef]

FormattedPolynomialRecurrence[p,x,n,coef]//TraditionalForm

TeXForm[%]

LinearRecurrence[coef,poly,{2-k0,Length[coef]-k0+1}]

FullSimplify[RSolve[Prepend[Table[p[k+k0-1,x]==poly[[k]],{k,Length[coef]}],ToPolynomialRecurrence[p,x,n,coef]],p[n,x],n],n∈Integers&&n>0]

gf=Factor[(z^k0)FindGeneratingFunction[poly,z]]

FullSimplify[SeriesCoefficient[gf,{z,0,n}],n>0]

poly2=Table[XXX,{n,k0,kmax}]

FullSimplify[poly2-poly]

IndependenceRatio

seq=Table[GraphData[{"WhiteBishop",{n,n}},"IndependenceRatio"],{n,2,10}]

FindSequenceFunction[seq,n-1]

IndependentEdgeSetCount

A286423

seq=Table[GraphData[{"WhiteBishop",{n,n}},"IndependentEdgeSetCount"],{n,2,10}]

seq={2,7,130,4207,1166928,541240697,2907639077764,25886034363696809,3341096345926174809912,713738790204487208874991935,2645105778378736719464340469683304,16238808907214611705432043192158547965751};

FindLinearRecurrence[seq]

FindSequenceFunction[seq,n-1]

gf=(x^2)FindGeneratingFunction[seq,x]

IndependentVertexSetCount

A216078

seq=Table[GraphData[{"WhiteBishop",{n,n}},"IndependentVertexSetCount"],{n,2,10}]

seq={1,1,3,7,27,87,409,1657,9089,43833,272947,1515903,10515147,65766991,501178937,3473600465,28773452321,218310229201,1949230218691,16035686850327,153281759047387,1356791248984295,1380621506668543};

FindLinearRecurrence[Drop[seq,2]]

FindSequenceFunction[Drop[seq,2],n-2]

gf=(x^3)FindGeneratingFunction[Drop[seq,2],x]

IntersectionNumber

seq=Table[GraphData[{"WhiteBishop",{n,n}},"IntersectionNumber"],{n,2,10}]

IrredundantSetCount

A290712

Table[GraphData[{"WhiteBishop",{n,n}},"IrredundantSetCount"],{n,2,10}]

KirchhoffIndex

seq=Table[GraphData[{"WhiteBishop",{n,n}},"KirchhoffIndex"],{n,2,10}]

FindSequenceFunction[seq,n-1]

KirchhoffSumIndex

seq=Table[GraphData[{"WhiteBishop",{n,n}},"KirchhoffSumIndex"],{n,2,10}]

LaplacianMatrix

MatrixForm/@Table[GraphData[{"WhiteBishop",{n,n}},"LaplacianMatrix"],{n,2,10}]

LaplacianPolynomial

(poly=Factor@Table[GraphData[{"WhiteBishop",{n,n}},"LaplacianPolynomial"][x],{n,k0=2,kmax=10}])//Column

coef=Factor/@FindLinearRecurrence[poly]

ToPolynomialRecurrence[p,x,n,coef]

FormattedPolynomialRecurrence[p,x,n,coef]//TraditionalForm

TeXForm[%]

LinearRecurrence[coef,poly,{2-k0,Length[coef]-k0+1}]

FullSimplify[RSolve[Prepend[Table[p[k+k0-1,x]==poly[[k]],{k,Length[coef]}],ToPolynomialRecurrence[p,x,n,coef]],p[n,x],n],n∈Integers&&n>0]

gf=Factor[(z^k0)FindGeneratingFunction[poly,z]]

FullSimplify[SeriesCoefficient[gf,{z,0,n}],n>0]

poly2=Table[XXX,{n,k0,kmax}]

FullSimplify[poly2-poly]

LeafCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"LeafCount"],{n,2,10}]

LongestCycleCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"LongestCycleCount"],{n,2,10}]

LovaszNumber

seq=Table[GraphData[{"WhiteBishop",{n,n}},"LovaszNumber"],{n,2,10}]

MatchingGeneratingPolynomial

(poly=Table[GraphData[{"WhiteBishop",{n,n}},"MatchingGeneratingPolynomial"],{n,k0=3,kmax=10}]/.f_Function:>f[x])//Column

coef=Factor/@FindLinearRecurrence[DeleteMissing@poly]

ToPolynomialRecurrence[p,x,n,coef]

FormattedPolynomialRecurrence[p,x,n,coef]//TraditionalForm

TeXForm[%]

LinearRecurrence[coef,poly,{2-k0,Length[coef]-k0+1}]

FullSimplify[RSolve[Prepend[Table[p[k+k0-1,x]==poly[[k]],{k,Length[coef]}],ToPolynomialRecurrence[p,x,n,coef]],p[n,x],n],n∈Integers&&n>0]

gf=Factor[(z^k0)FindGeneratingFunction[poly,z]]

FullSimplify[SeriesCoefficient[gf,{z,0,n}],n>0]

poly2=Table[XXX,{n,k0,kmax}]

FullSimplify[poly2-poly]

MatchingNumber

seq=Table[GraphData[{"WhiteBishop",{n,n}},"MatchingNumber"],{n,2,10}]

FullSimplify[FindSequenceFunction[seq,n-1],n∈Integers]

FullSimplify[%,Mod[n,2]==#]&/@{0,1}

MatchingPolynomial

(poly=Table[GraphData[{"WhiteBishop",{n,n}},"MatchingPolynomial"],{n,k0=3,kmax=10}]/.f_Function:>f[x])//Column

coef=Factor/@FindLinearRecurrence[DeleteMissing@poly]

ToPolynomialRecurrence[p,x,n,coef]

FormattedPolynomialRecurrence[p,x,n,coef]//TraditionalForm

TeXForm[%]

LinearRecurrence[coef,poly,{2-k0,Length[coef]-k0+1}]

FullSimplify[RSolve[Prepend[Table[p[k+k0-1,x]==poly[[k]],{k,Length[coef]}],ToPolynomialRecurrence[p,x,n,coef]],p[n,x],n],n∈Integers&&n>0]

gf=Factor[(z^k0)FindGeneratingFunction[poly,z]]

FullSimplify[SeriesCoefficient[gf,{z,0,n}],n>0]

poly2=Table[XXX,{n,k0,kmax}]

FullSimplify[poly2-poly]

MaximalCliqueCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"MaximalCliqueCount"],{n,2,10}]

FindSequenceFunction[seq,n-1]//FunctionExpand

SeriesCoefficient[FindGeneratingFunction[seq,x],{x,0,n}]

Table[(1/6) (3-9 (2^(n-1))+7 (3^(n-1))),{n,2,10}]

MaximalIndependentEdgeSetCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"MaximalIndependentEdgeSetCount"],{n,2,10}]

MaximalIndependentVertexSetCount

A290613

seq=Table[GraphData[{"WhiteBishop",{n,n}},"MaximalIndependentVertexSetCount"],{n,2,10}]

MaximumCliqueCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"MaximumCliqueCount"],{n,2,10}]

FindSequenceFunction[seq,n-1]//FunctionExpand

SeriesCoefficient[FindGeneratingFunction[seq,x],{x,0,n}]

Table[(1/6) (3-9 (2^(n-1))+7 (3^(n-1))),{n,2,10}]

MaximumIndependentEdgeSetCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"MaximumIndependentEdgeSetCount"],{n,2,10}]

MaximumIndependentVertexSetCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"MaximumIndependentVertexSetCount"],{n,2,10}]

MaximumLeafNumber

seq=Table[GraphData[{"WhiteBishop",{n,n}},"MaximumLeafNumber"],{n,2,10}]

MaximumVertexDegree

seq=Table[GraphData[{"WhiteBishop",{n,n}},"MaximumVertexDegree"],{n,2,10}]

MeanDistance

seq=Table[GraphData[{"WhiteBishop",{n,n}},"MeanDistance"],{n,2,10}]

FindSequenceFunction[seq,n-1]

FindGeneratingFunction[seq,x]

MinimalDominatingSetCount

A287897

seq=Table[GraphData[{"WhiteBishop",{n,n}},"MinimalDominatingSetCount"],{n,2,10}]

MinimalDominatingSetSignature

seq=Table[GraphData[{"WhiteBishop",{n,n}},"MinimalDominatingSetSignature"],{n,2,10}]//Column

MinimumCliqueCoveringCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"MinimumCliqueCoveringCount"],{n,2,10}]

MinimumConnectedDominatingSetCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"MinimumConnectedDominatingSetCount"],{n,2,10}]

FindSequenceFunction[seq,n-1]

MinimumDistinguishingLabelingCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"MinimumDistinguishingLabelingCount"],{n,2,10}]

MinimumDominatingSetCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"MinimumDominatingSetCount"],{n,2,10}]

MinimumEdgeCoverCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"MinimumEdgeCoverCount"],{n,2,10}]

MinimumVertexDegree

seq=Table[GraphData[{"WhiteBishop",{n,n}},"MinimumVertexDegree"],{n,2,10}]

MolecularTopologicalIndex

seq=Table[GraphData[{"WhiteBishop",{n,n}},"MolecularTopologicalIndex"],{n,2,10}]

FindSequenceFunction[seq,n-1]

FindGeneratingFunction[seq,x]//Factor

-36(3·(2^n)-8)(27·(2^n)-(143^n)-18)

Table[(3 2^n-8)(14 3^n7 2^n+18)/36,{n,2,10}]

Nonhamiltonian

Table[GraphData[{"WhiteBishop",{n,n}},"Nonhamiltonian"],{n,2,10}]

NormalizedLaplacianMatrix

MatrixForm/@Table[GraphData[{"WhiteBishop",{n,n}},"NormalizedLaplacianMatrix"],{n,2,10}]

OddChordlessCycleCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"OddChordlessCycleCount"],{n,2,10}]

PathCount

A291999

seq=Table[GraphData[{"WhiteBishop",{n,n}},"PathCount"],{n,2,10}]

FindLinearRecurrence[DeleteMissing@seq]

FindSequenceFunction[DeleteMissing@seq,n]

gf=x FindGeneratingFunction[DeleteMissing@seq,x]

FullSimplify[SeriesCoefficient[gf,{x,0,n}],n>0]

PathPolynomial

(poly=DeleteMissing@Factor[Table[GraphData[{"WhiteBishop",{n,n}},"PathPolynomial"],{n,k0=2,kmax=10}]/.f_Function:>f[x]])//Column

coef=Factor/@FindLinearRecurrence[poly]

PentagonCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"PentagonCount"],{n,2,10}]

FindSequenceFunction[seq,n-1]

FindSequenceFunction[Drop[seq,2],n]

FindGeneratingFunction[seq,x]

FindLinearRecurrence[seq]

Perfect

Table[GraphData[{"WhiteBishop",{n,n}},"Perfect"],{n,2,10}]

ProjectivePlaneCrossingNumber

seq=Table[GraphData[{"WhiteBishop",{n,n}},"ProjectivePlaneCrossingNumber"],{n,2,10}]

Radius

seq=Table[GraphData[{"WhiteBishop",{n,n}},"Radius"],{n,2,10}]

RankPolynomial

(poly=Factor@Table[GraphData[{"WhiteBishop",{n,n}},"RankPolynomial"][x,y],{n,k0=2,kmax=10}])//Column

coef=Factor/@FindLinearRecurrence[poly]

ToPolynomialRecurrence[p,x,n,coef]

FormattedPolynomialRecurrence[p,x,n,coef]//TraditionalForm

TeXForm[%]

LinearRecurrence[coef,poly,{2-k0,Length[coef]-k0+1}]

FullSimplify[RSolve[Prepend[Table[p[k+k0-1,x]==poly[[k]],{k,Length[coef]}],ToPolynomialRecurrence[p,x,n,coef]],p[n,x],n],n∈Integers&&n>0]

gf=Factor[(z^k0)FindGeneratingFunction[poly,z]]

FullSimplify[SeriesCoefficient[gf,{z,0,n}],n>0]

poly2=Table[XXX,{n,k0,kmax}]

FullSimplify[poly2-poly]

RectilinearCrossingNumber

seq=Table[GraphData[{"WhiteBishop",{n,n}},"RectilinearCrossingNumber"],{n,2,10}]

ReliabilityPolynomial

(poly=Factor@Table[GraphData[{"WhiteBishop",{n,n}},"ReliabilityPolynomial"][x],{n,k0=2,kmax=10}])//Column

coef=Factor/@FindLinearRecurrence[poly]

ToPolynomialRecurrence[p,x,n,coef]

FormattedPolynomialRecurrence[p,x,n,coef]//TraditionalForm

TeXForm[%]

LinearRecurrence[coef,poly,{2-k0,Length[coef]-k0+1}]

FullSimplify[RSolve[Prepend[Table[p[k+k0-1,x]==poly[[k]],{k,Length[coef]}],ToPolynomialRecurrence[p,x,n,coef]],p[n,x],n],n∈Integers&&n>0]

gf=Factor[(z^k0)FindGeneratingFunction[poly,z]]

FullSimplify[SeriesCoefficient[gf,{z,0,n}],n>0]

poly2=Table[XXX,{n,k0,kmax}]

FullSimplify[poly2-poly]

SigmaPolynomial

(poly=Factor@Table[GraphData[{"WhiteBishop",{n,n}},"SigmaPolynomial"][x],{n,k0=2,kmax=10}])//Column

coef=Factor/@FindLinearRecurrence[poly]

ToPolynomialRecurrence[p,x,n,coef]

FormattedPolynomialRecurrence[p,x,n,coef]//TraditionalForm

TeXForm[%]

LinearRecurrence[coef,poly,{2-k0,Length[coef]-k0+1}]

FullSimplify[RSolve[Prepend[Table[p[k+k0-1,x]==poly[[k]],{k,Length[coef]}],ToPolynomialRecurrence[p,x,n,coef]],p[n,x],n],n∈Integers&&n>0]

gf=Factor[(z^k0)FindGeneratingFunction[poly,z]]

FullSimplify[SeriesCoefficient[gf,{z,0,n}],n>0]

poly2=Table[XXX,{n,k0,kmax}]

FullSimplify[poly2-poly]

SpanningTreeCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"SpanningTreeCount"],{n,2,10}]

FindSequenceFunction[Take[seq,7],n]

FindGeneratingFunction[Take[seq,7],x]

SquareCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"SquareCount"],{n,2,10}]

FindSequenceFunction[seq,n-1]

FindSequenceFunction[Drop[seq,3],n-3]

FindGeneratingFunction[seq,x]

FindLinearRecurrence[Drop[seq,3]]

StabilityIndex

seq=Table[GraphData[{"WhiteBishop",{n,n}},"StabilityIndex"],{n,2,10}]

FindSequenceFunction[seq,n-1]

FindGeneratingFunction[seq,x]

TopologicalIndex

seq=Table[GraphData[{"WhiteBishop",{n,n}},"TopologicalIndex"],{n,2,10}]

FindSequenceFunction[seq,n-1]

FindGeneratingFunction[seq,x]

ToroidalCrossingNumber

seq=Table[GraphData[{"WhiteBishop",{n,n}},"ToroidalCrossingNumber"],{n,2,10}]

Traceable

Table[GraphData[{"WhiteBishop",{n,n}},"Traceable"],{n,2,10}]

TriangleCount

seq=Table[GraphData[{"WhiteBishop",{n,n}},"TriangleCount"],{n,2,10}]

TuttePolynomial

(poly=Factor@Table[GraphData[{"WhiteBishop",{n,n}},"TuttePolynomial"][x,y],{n,k0=2,kmax=10}])//Column

coef=Factor/@FindLinearRecurrence[poly]

ToPolynomialRecurrence[p,x,n,coef]

FormattedPolynomialRecurrence[p,x,n,coef]//TraditionalForm

TeXForm[%]

LinearRecurrence[coef,poly,{2-k0,Length[coef]-k0+1}]

FullSimplify[RSolve[Prepend[Table[p[k+k0-1,x]==poly[[k]],{k,Length[coef]}],ToPolynomialRecurrence[p,x,n,coef]],p[n,x],n],n∈Integers&&n>0]

gf=Factor[(z^k0)FindGeneratingFunction[poly,z]]

FullSimplify[SeriesCoefficient[gf,{z,0,n}],n>0]

poly2=Table[XXX,{n,k0,kmax}]

FullSimplify[poly2-poly]

Untraceable

Table[GraphData[{"WhiteBishop",{n,n}},"Untraceable"],{n,2,10}]

VertexConnectivity

Table[GraphData[{"WhiteBishop",{n,n}},"VertexConnectivity"],{n,2,10}]

VertexCount

A007590

seq=Table[GraphData[{"WhiteBishop",{n,n}},"VertexCount"],{n,2,10}]

FindSequenceFunction[seq,n-1]//FullSimplify[#,n∈Integers]&

Table[(1/4) (-1+(((-1))^n)+2 (n^2)),{n,20}]

Table[Floor[n^2/2],{n,20}]

VertexCoverNumber

Related to but not the same as IndependenceNumber

seq=Table[GraphData[{"WhiteBishop",{n,n}},"VertexCoverNumber"],{n,2,10}]

FindSequenceFunction[seq,n-1]//FullSimplify

gf=x FindGeneratingFunction[seq,x]

FullSimplify[SeriesCoefficient[gf,{x,0,n}],n>0]

Table[3 (2^(-3+n)),{n,2,10}]

VertexCoverPolynomial

(poly=Factor@Table[GraphData[{"WhiteBishop",{n,n}},"VertexCoverPolynomial"][x],{n,k0=2,kmax=10}])//Column

coef=Factor/@FindLinearRecurrence[poly]

ToPolynomialRecurrence[p,x,n,coef]

FormattedPolynomialRecurrence[p,x,n,coef]//TraditionalForm

TeXForm[%]

LinearRecurrence[coef,poly,{2-k0,Length[coef]-k0+1}]

FullSimplify[RSolve[Prepend[Table[p[k+k0-1,x]==poly[[k]],{k,Length[coef]}],ToPolynomialRecurrence[p,x,n,coef]],p[n,x],n],n∈Integers&&n>0]

gf=Factor[(z^k0)FindGeneratingFunction[poly,z]]

FullSimplify[SeriesCoefficient[gf,{z,0,n}],n>0]

poly2=Table[XXX,{n,k0,kmax}]

FullSimplify[poly2-poly]

VertexDegrees

seq=Table[GraphData[{"WhiteBishop",{n,n}},"VertexDegrees"],{n,2,10}]

VertexTransitive

Table[GraphData[{"WhiteBishop",{n,n}},"VertexTransitive"],{n,2,10}]

WienerIndex

A292059

seq=Table[GraphData[{"WhiteBishop",{n,n}},"WienerIndex"],{n,2,10}]

(seq=Table[WienerIndex[WhiteBishopGraph[n,n]],{n,2,20}])//Timing

FindSequenceFunction[seq,n-1]

coef=FindLinearRecurrence[seq]

Length@coef

Take[seq,8]

seq=LinearRecurrence[{2,2,-6,0,6,-2,-2,1},{1,8,42,104,251,464,852,1360},40]

FullSimplify[FindSequenceFunction[seq,n-1]]

Expand[(-1+2 (-1+n) n)]

Table[ (3+2 n-6 (n^2)-8 (n^3)+6 (n^4)+3 (((-1))^n) (-1-2 n+2 (n^2)))/24,{n,2,20}]

gf=(x^2)FindGeneratingFunction[seq,x]

CoefficientList[Series[((-1-6 x-24 (x^2)-10 (x^3)-7 (x^4))/((((-1+x))^5) (((1+x))^3))),{x,0,20}],x]

WienerSumIndex

seq=Table[GraphData[{"WhiteBishop",{n,n}},"WienerSumIndex"],{n,2,10}]

FindSequenceFunction[seq,n-1]

GraphData

GraphDataClassString

GraphDataClassString["WhiteBishop"]

GraphDataString

Square

file=OpenWrite["white-bishop.m"]

Do[WriteString[file,GraphDataString[WhiteBishopGraph[n,n],
"Name"->"("<>ToString[n]<>","<>ToString[n]<>")\[Hyphen]white bishop graph",
"StandardName"->{"WhiteBishop",{n,n}},
"Classes"->{"WhiteBishop"},
"NotationRules"->{"WhiteBishop"->{n,n}},
"Information"->"WhiteBishopGraph",
"Skip"->{"ABCEnergy","ABCSpectralRadius","Arboricity","ArithmeticGeometricEnergy","ArithmeticGeometricSpectralRadius","BetweennessCentralities","BurningNumber","CharacteristicPolynomial","Circumference","CliqueCoveringNumber","ConnectedDominatingSets","ConstructionNumber","ConnectedInducedSubgraphPolynomial","ConnectedInducedSubgraphs","Curvatures","CyclePolynomial","CyclicEdgeConnectivity","DetourMatrix","DominatingSets","EigenvectorCentralities","EmbeddingClasses","Embeddings3D","Energy","Genus","GracefulLabeling","HadwigerNumber","HamiltonianPaths","HamiltonianWalk","HamiltonianWalks","HITSCentralities","IdiosyncraticPolynomial","IndependencePolynomial","IrredundacePolynomial","IrredundantSets","KatzCentralities","LinklesslyEmbeddable","LowerMatchingNumber","MatchingGeneratingPolynomial","MatchingPolynomial","MaximalIndependentEdgeSets","MaximalIndependentVertexSet","MaximalIndependentVertexSets","MaximumIndependentEdgeSetCount","MaximumIndependentEdgeSets","MaximumIndependentVertexSet","MaximumIndependentVertexSetCount","MaximumIndependentVertexSets","MaximumIrredundantSets","MetricDimension","Meyniel","MinimumCoveringsByMaximalCliques","MinimumCyclicEdgeCut","MinimumCyclicEdgeCuts","MinimumEdgeCuts","MinimumPathCovering","MinimumVertexCover","MinimumVertexCut","MinimumTotalDominatingSet","MinimumWeightFractionalEdgeColoring","MinimumWeightFractionalColoring","Minors","Outerplanar","PageRankCentralities","PathCoveringNumber","PathPolynomial","PathSignature","Paths","ProjectivePlanar","QuadraticEmbeddingConstant","RandicEnergy","RandicSpectralRadius","RectilinearCrossingCount","Skewness","SomborEnergy","SomborSpectralRadius","SpanningTreeCount","TopologicalIndex","TotalDominationPolynomial","TuttePolynomial","VertexCuts"},
Debug->True,
TimeConstraint->10
]],{n,11,20,2}]

Close[file]