A295197 - OEIS

%I #28 Oct 12 2024 15:37:43

%S 1,2,9,3,43,2387,7,587,351773,655089857,12,11703,92197523,

%T 2586209749712,185543613289205809,43,352902,37893376167,

%U 18581620064907130,28224967150633208580385,106103186941524316132396201360,127,13639372,22612848403571,220019264470242220839,8045720086273150473238405274,851013076163633746725692124186472539,218900758256599151027392153440612298654753249

%N Triangle read by rows: T(n,k) is the number of non-isomorphic colorings of a toroidal n X k grid using any number of swappable colors, 1 <= k <= n.

%C Two colorings are equivalent if there is a permutation of the colors that takes one to the other in addition to translational symmetries on the torus. (Power Group Enumeration.) Maximum number of colors is n * k.

%D F. Harary and E. Palmer, Graphical Enumeration, Academic Press, 1973.

%H Andrew Howroyd, <a href="/A295197/b295197.txt">Table of n, a(n) for n = 1..300</a> (24 rows; first 36 terms from Marko Riedel)

%H Marko Riedel et al., <a href="https://math.stackexchange.com/questions/2506511/">Burnside lemma and translational symmetries of the torus</a>.

%H Marko Riedel, <a href="/A295197/a295197_2.maple.txt">Maple code for sequence A295197, computing all colorings at once with no prior classification</a>.

%H Marko Riedel, <a href="/A295197/a295197_3.maple.txt">Maple code for sequence A295197, classifying by the exact number of colors that appear</a>.

%F T(n,k) = Sum_{Q=1..n*k} (1/(n*k*Q!))*(Sum_{sigma in S_Q} Sum_{d|n} Sum_{f|k} phi(d) phi(f) [[forall j_l(sigma) > 0 : l|lcm(d,f) ]] P(gcd(d,f)*(n/d)*(k/f), sigma)) where P(F, sigma) = F! [z^F] Product_{l=1..Q} (exp(lz)-1)^j_l(sigma). The notation j_l(sigma) is from the Harary text and gives the number of cycles of length l in the permutation sigma. [[.]] is an Iverson bracket.

%F T(n,k) = (Sum_{d|n} Sum_{f|k} phi(d) * phi(f) * A162663(n*k/lcm(d,f), lcm(d,f)))/(n*k). - _Andrew Howroyd_, Oct 06 2024

%e The two-by-two with swappable colors has one monochrome coloring, four colorings with two colors, three colorings with three colors (determined by the color that appears twice) and one coloring with four colors.

%e Triangle begins:

%e    1;

%e    2,     9;

%e    3,    43,     2387;

%e    7,   587,   351773,     655089857;

%e   12, 11703, 92197523, 2586209749712, 185543613289205809;

%e   ...

%o (PARI) \\ B(m,n) is A162663(n,m).

%o B(m,n)={n!*polcoef(exp(sumdiv(m,d, (exp(d*x + O(x*x^n))-1)/d)), n)}

%o T(n,k)={my(v=vector(lcm(n,k))); fordiv(n,d, fordiv(k,e, v[lcm(d,e)] += eulerphi(d) * eulerphi(e) )); sumdiv(#v, g, v[g]*B(g,n*k/g))/(n*k)} \\ _Andrew Howroyd_, Oct 06 2024

%Y Main diagonal is A376808.

%Y Cf. A162663, A294791, A294792, A294793, A294794. T(n,1) is A084423.

%K nonn,tabl

%O 1,2

%A _Marko Riedel_, Nov 16 2017