A295372 Number of total dominating sets in the n-hypercube graph.
1, 9, 121, 33489, 2089129849, 8522269792371679969
Offset: 1
Links
- Eric Weisstein's World of Mathematics, Hypercube Graph
- Eric Weisstein's World of Mathematics, Total Dominating Set
Programs
-
Mathematica
Table[Count[Subsets[Range[2^n]], ?(CountDistinct[Flatten[# /. Table[k -> AdjacencyList[HypercubeGraph[n], k], {k, 2^n}]]] == 2^n &)], {n, 1, 3}] (* _Eric W. Weisstein, Apr 17 2018 *)
Formula
a(n) = A284704(n-1)^2. - Andrew Howroyd, Apr 16 2018
Extensions
a(5)-a(6) from Andrew Howroyd, Apr 16 2018