A285765 Number of connected induced (non-null) subgraphs of the n X n queen graph.
1, 15, 495, 64815, 33478163, 68694593248
Offset: 1
Links
- Eric Weisstein's World of Mathematics, Queen Graph
- Eric Weisstein's World of Mathematics, Vertex-Induced Subgraph
Crossrefs
Programs
-
Mathematica
Table[g = GraphData[{"Queen", {n, n}}]; -1 + ParallelSum[ Boole@ ConnectedGraphQ@ Subgraph[g, s], {s, Subsets@ Range[n^2]}], {n, 4}]