OFFSET
1,1
LINKS
S. N. Ethier and Jiyeon Lee, Counting toroidal binary arrays, II, arXiv:1502.03792v1 [math.CO], Feb 12, 2015 and J. Int. Seq. 18 (2015).
Peter Kagey, Illustration of a(3)=36
Peter Kagey and William Keehn, Counting tilings of the n X m grid, cylinder, and torus, arXiv: 2311.13072 [math.CO], 2023. See also J. Int. Seq., (2024) Vol. 27, Art. No. 24.6.1, pp. A-21, A-23.
MATHEMATICA
A368139[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[OddQ[n], 2^((n^2 + 1)/2), (7*2^(n^2/2 - 2))] + 2*n*DivisorSum[n, Function[d, EulerPhi[d]*If[EvenQ[d], 2^(n^2/(2 d)), 2^((n^2 + n)/(2d))]]])
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Kagey, Dec 16 2023
STATUS
approved