cp's OEIS Frontend

A045610 Number of different energy states of n positive and n negative charges on a string.

%I A045610 #22 Mar 16 2021 09:16:13
%S A045610 1,1,3,7,22,70,249,880,3238,12180,46247,174458,672920,2585414,10015955
%N A045610 Number of different energy states of n positive and n negative charges on a string.
%H A045610 Sean A. Irvine, <a href="https://github.com/archmageirvine/joeis/blob/master/src/irvine/oeis/a045/A045610.java">Java program</a>, GitHub.
%e A045610 For n=3 the 20 different arrangements of -1,-1,-1,1,1,1 result in 7 energy levels (sum of signed inverse distances):
%e A045610 {0,0,0,1,1,1},{1,1,1,0,0,0}: 13/10
%e A045610 {0,0,1,0,1,1},{1,1,0,1,0,0}: -41/30
%e A045610 {0,0,1,1,0,1},{0,1,0,0,1,1},{1,0,1,1,0,0},{1,1,0,0,1,0}: -56/30
%e A045610 {0,0,1,1,1,0},{0,1,1,1,0,0},{1,0,0,0,1,1},{1,1,0,0,0,1}: -8/10
%e A045610 {0,1,0,1,0,1},{1,0,1,0,1,0}: -37/10
%e A045610 {0,1,0,1,1,0},{0,1,1,0,1,0},{1,0,0,1,0,1},{1,0,1,0,0,1}: -89/30
%e A045610 {0,1,1,0,0,1},{1,0,0,1,1,0}: -71/30
%e A045610 so the multiplicities are 4*2 + 3*4 = 20 = binomial(6,3).
%t A045610 f[li_: {(0 | 1) ..}] := Outer[Times, 2 li - 1, 2 li - 1];
%t A045610 Table[Length @ Tally[Total[1/DeleteCases[f[#] DistanceMatrix[Range[2 n]], 0, 2], 2] & /@ Permutations[Join[Table[0, n], Table[1, n]]]], {n, 10}] (* _Wouter Meeussen_, Mar 15 2021 *)
%Y A045610 Cf. A045723.
%K A045610 nonn,more
%O A045610 0,3
%A A045610 _Wouter Meeussen_
%E A045610 Corrected and extended by _Wouter Meeussen_, Mar 15 2021
%E A045610 a(12)-a(15) from _Sean A. Irvine_, Mar 15 2021