OFFSET
1,1
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..200
Eric Weisstein's World of Mathematics, Antiprism Graph
Eric Weisstein's World of Mathematics, Vertex-Induced Subgraph
FORMULA
a(n) = 8*a(n-1) - 24*a(n-2) + 34*a(n-3) - 24*a(n-4) + 8*a(n-5) - a(n-6), for n > 6 (conjectured).
G.f.: x*(3 - 9*x + 12*x^2 - 15*x^3 + 9*x^4 - 2*x^5) / ((1 - x)^2*(1 - 3*x + x^2)^2) (conjectured). - Colin Barker, May 30 2017
MATHEMATICA
a[n_] := Block[{g = Graph@ Flatten@ Table[{i <-> Mod[i, n]+1, n+i <-> Mod[i, n] + n+1, i <-> n + Mod[i, n] + 1, i <-> n + Mod[i-1, n] + 1}, {i, n}]}, -1 + ParallelSum[ Boole@ ConnectedGraphQ@ Subgraph[g, s], {s, Subsets@ Range[2 n]}]]; Array[a, 8]
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Resta, May 04 2017
EXTENSIONS
a(17)-a(27) from Andrew Howroyd, May 20 2017
STATUS
approved