|
MATHEMATICA
|
Table[Length@FindIndependentVertexSet[RelationGraph[Sort[Abs[Subtract[##]]] == {2, 3} &, Tuples[Range[n], 2]], Infinity, All], {n, 8}]
|
|
PROG
|
(Python)
from networkx import empty_graph, complement, find_cliques
G = empty_graph((i, j) for i in range(n) for j in range(n))
G.add_edges_from(((i, j), (i+k, j+l)) for i in range(n) for j in range(n) for (k, l) in ((2, 3), (2, -3), (-2, 3), (-2, -3), (3, 2), (3, -2), (-3, 2), (-3, -2)) if 0<=i+k<n and 0<=j+l<n)
return sum(1 for c in find_cliques(complement(G))) # Chai Wah Wu, Jan 27 2024
|