A273891
Triangle read by rows: T(n,k) is the number of n-bead bracelets with exactly k different colored beads.
Original entry on oeis.org
1, 1, 1, 1, 2, 1, 1, 4, 6, 3, 1, 6, 18, 24, 12, 1, 11, 56, 136, 150, 60, 1, 16, 147, 612, 1200, 1080, 360, 1, 28, 411, 2619, 7905, 11970, 8820, 2520, 1, 44, 1084, 10480, 46400, 105840, 129360, 80640, 20160, 1, 76, 2979, 41388, 255636, 821952, 1481760, 1512000, 816480, 181440
Offset: 1
Triangle begins with T(1,1):
1;
1, 1;
1, 2, 1;
1, 4, 6, 3;
1, 6, 18, 24, 12;
1, 11, 56, 136, 150, 60;
1, 16, 147, 612, 1200, 1080, 360;
1, 28, 411, 2619, 7905, 11970, 8820, 2520;
1, 44, 1084, 10480, 46400, 105840, 129360, 80640, 20160;
1, 76, 2979, 41388, 255636, 821952, 1481760, 1512000, 816480, 181440;
For T(4,2)=4, the arrangements are AAAB, AABB, ABAB, and ABBB, all achiral.
For T(4,4)=3, the arrangements are ABCD, ABDC, and ACBD, whose chiral partners are ADCB, ACDB, and ADBC respectively. - _Robert A. Russell_, Sep 26 2018
-
(* t = A081720 *) t[n_, k_] := (For[t1 = 0; d = 1, d <= n, d++, If[Mod[n, d] == 0, t1 = t1 + EulerPhi[d]*k^(n/d)]]; If[EvenQ[n], (t1 + (n/2)*(1 + k)*k^(n/2))/(2*n), (t1 + n*k^((n+1)/2))/(2*n)]); T[n_, k_] := Sum[(-1)^i * Binomial[k, i]*t[n, k-i], {i, 0, k-1}]; Table[T[n, k], {n, 1, 10}, {k, 1, n}] // Flatten (* Jean-François Alcover, Oct 07 2017, after Andrew Howroyd *)
Table[k! DivisorSum[n, EulerPhi[#] StirlingS2[n/#,k]&]/(2n) + k!(StirlingS2[Floor[(n+1)/2], k] + StirlingS2[Ceiling[(n+1)/2], k])/4, {n,1,10}, {k,1,n}] // Flatten (* Robert A. Russell, Sep 26 2018 *)
A056489
Number of periodic palindromes using exactly three different symbols.
Original entry on oeis.org
0, 0, 0, 3, 6, 21, 36, 93, 150, 345, 540, 1173, 1806, 3801, 5796, 11973, 18150, 37065, 55980, 113493, 171006, 345081, 519156, 1044453, 1569750, 3151785, 4733820, 9492213, 14250606, 28550361, 42850116, 85798533, 128746950, 257690505, 386634060, 773661333
Offset: 1
For n=4, the three arrangements are ABAC, ABCB, and ACBC.
For n=5, the six arrangements are AABCB, AACBC, ABACC, ABBAC, ABCCB, and ACBBC.
- M. R. Nester (1999). Mathematical investigations of some plant interaction designs. PhD Thesis. University of Queensland, Brisbane, Australia. [See A056391 for pdf file of Chap. 2]
-
a:=[0,0,0,3,6];; for n in [6..40] do a[n]:=a[n-1]+5*a[n-2]-5*a[n-3]-6*a[n-4]+6*a[n-5]; od; a; # Muniru A Asiru, Sep 28 2018
-
seq(coeff(series(3*x^4*(1+x)/((1-x)*(1-2*x^2)*(1-3*x^2)),x,n+1), x, n), n = 1..40); # Muniru A Asiru, Sep 28 2018
-
k = 3; Table[(k!/2) (StirlingS2[Floor[(n + 1)/2], k] +
StirlingS2[Ceiling[(n + 1)/2], k]), {n, 1, 40}] (* Robert A. Russell, Jun 05 2018 *)
LinearRecurrence[{1, 5, -5, -6, 6}, {0, 0, 0, 3, 6}, 80] (* Vincenzo Librandi, Sep 27 2018 *)
-
a(n) = my(k=3); (k!/2)*(stirling(floor((n+1)/2), k, 2) + stirling(ceil((n+1)/2), k, 2)); \\ Michel Marcus, Jun 05 2018
A214310
a(n) is the number of all three-color bracelets (necklaces with turning over allowed) with n beads and the three colors are from a repertoire of n distinct colors, for n >= 3.
Original entry on oeis.org
1, 24, 180, 1120, 5145, 23016, 91056, 357480, 1327095, 4893680, 17525508, 62254920, 217457695, 753332160, 2581110000, 8779264032, 29624681763, 99350001360, 331159123260, 1098168382080, 3624003213369, 11908069219816, 38972450763000, 127087400895000
Offset: 3
a(5) = A213941(5,4) + A213941(5,5) = 60 + 120 = 180 from the bracelet (with colors j for c[j], j=1, 2, ..., 5) 11123 and 11213, both taken cyclically, each representing a class of order A035206(5,4)= 30 (if all 5 colors are used), and 11223, 11232, 12123 and 12213, all taken cyclically, each representing a class of order A035206(5,5)= 30. For example, cyclic(11322) becomes equivalent to cyclic(11223) by turning over or reflection. The multiplicity A035206 depends only on the color signature.
A326660
Number of n-bead asymmetric bracelets with exactly 3 different colored beads.
Original entry on oeis.org
0, 0, 1, 3, 12, 34, 111, 315, 933, 2622, 7503, 21033, 59472, 167118, 472120, 1332945, 3777600, 10720869, 30516447, 87032994, 248820704, 712743768, 2045784183, 5882367570, 16942974048, 48876558318, 141204944529, 408494941773, 1183247473872, 3431450670601
Offset: 1
Case n = 4: There are 3 distinct asymmetric bracelets with exactly 3 colors which are aabc, abbc, abcc.
A056349
Number of primitive (period n) bracelets using exactly three different colored beads.
Original entry on oeis.org
0, 0, 1, 6, 18, 55, 147, 405, 1083, 2961, 8043, 22182, 61278, 170883, 477910, 1344825, 3795750, 10757763, 30572427, 87146139, 248991674, 713088309, 2046303339, 5883410760, 16944543792, 48879708297
Offset: 1
- M. R. Nester (1999). Mathematical investigations of some plant interaction designs. PhD Thesis. University of Queensland, Brisbane, Australia. [See A056391 for pdf file of Chap. 2]
Showing 1-5 of 5 results.
Comments