|
|
A368140
|
|
Number of ways of tiling the n X n torus up to diagonal and antidiagonal reflection of the square by a tile that is fixed under only diagonal reflection.
|
|
4
|
|
|
1, 4, 22, 1154, 337192, 477360876, 2872203226920, 72057597041056852, 7462505060326909791920, 3169126500571693774150807456, 5492677668532711895587506949961184, 38716571525226776294594927800946276718944, 1106936151351216411420589971585441310578379941760
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
A368140[n_] := 1/(4n^2)*(DivisorSum[n, Function[d, DivisorSum[n, Function[c, EulerPhi[c] EulerPhi[d] 2^(n^2/LCM[c, d])]]]] + n^2*If[EvenQ[n], (3*2^(n^2/2 - 2)), 0] + n*DivisorSum[n, Function[d, EulerPhi[d] If[EvenQ[d], 2^(n^2/(2 d) + 1), 2^((n^2 + n)/(2d))]]])
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,changed
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|