|
|
A368138
|
|
Number of ways of tiling the n X n torus up to the symmetries of the square by an asymmetric tile.
|
|
4
|
|
|
1, 154, 1864192, 2199026796168, 188894659314785812480, 1126800533536206914843196839296, 455117248949604553908892209645884928950272, 12259964326927110866866776228808161337250421224373748224, 21812926725659065797324660502998994022561529591086874194578215566049280
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
A368138[n_] := 1/(8n^2)*(DivisorSum[n, Function[d, DivisorSum[n, Function[c, EulerPhi[c] EulerPhi[d] 8^(n^2/LCM[c, d])]]]] + If[EvenQ[n], n^2 (3/4*8^(n^2/2) + 8^(n^2/4)) + n*DivisorSum[n, Function[c, EulerPhi[c] (If[EvenQ[c], 2*8^(n^2/c), 8^(n^2/(2 c))])]], 0] + 2*n*DivisorSum[n, Function[d, EulerPhi[d]*If[EvenQ[d], 8^(n^2/(2 d)), 0]]])
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|