A284949
Triangle read by rows: T(n,k) = number of reversible string structures of length n using exactly k different symbols.
Original entry on oeis.org
1, 1, 1, 1, 2, 1, 1, 5, 4, 1, 1, 9, 15, 6, 1, 1, 19, 50, 37, 9, 1, 1, 35, 160, 183, 76, 12, 1, 1, 71, 502, 877, 542, 142, 16, 1, 1, 135, 1545, 3930, 3523, 1346, 242, 20, 1, 1, 271, 4730, 17185, 21393, 11511, 2980, 390, 25, 1
Offset: 1
Triangle begins:
1;
1, 1;
1, 2, 1;
1, 5, 4, 1;
1, 9, 15, 6, 1;
1, 19, 50, 37, 9, 1;
1, 35, 160, 183, 76, 12, 1;
1, 71, 502, 877, 542, 142, 16, 1;
1, 135, 1545, 3930, 3523, 1346, 242, 20, 1;
1, 271, 4730, 17185, 21393, 11511, 2980, 390, 25, 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]
-
(* achiral color patterns for row of n colors containing k different colors *)
Ach[n_, k_] := Ach[n, k] = Switch[k, 0, If[0==n, 1, 0], 1, If[n>0, 1, 0],
(* else *) _, If[OddQ[n],
Sum[Binomial[(n-1)/2, i] Ach[n-1-2i, k-1], {i, 0, (n-1)/2}],
Sum[Binomial[n/2-1, i] (Ach[n-2-2i, k-1] + 2^i Ach[n-2-2i, k-2]),
{i, 0, n/2-1}]]]
Table[(StirlingS2[n, k] + Ach[n, k])/2, {n, 1, 15}, {k, 1, n}] // Flatten
(* Robert A. Russell, Feb 10 2018 *)
-
\\ see A056391 for Polya enumeration functions
T(n,k) = NonequivalentStructsExactly(ReversiblePerms(n), k); \\ Andrew Howroyd, Oct 14 2017
-
\\ Ach is A304972 as square matrix.
Ach(n)={my(M=matrix(n,n,i,k,i>=k)); for(i=3, n, for(k=2, n, M[i,k]=k*M[i-2,k] + M[i-2,k-1] + if(k>2, M[i-2,k-2]))); M}
T(n)={(matrix(n, n, i, k, stirling(i, k, 2)) + Ach(n))/2}
{ my(A=T(10)); for(n=1, #A, print(A[n,1..n])) } \\ Andrew Howroyd, Sep 18 2019
A056324
Number of reversible string structures with n beads using a maximum of five different colors.
Original entry on oeis.org
1, 1, 2, 4, 11, 32, 116, 455, 1993, 9134, 43580, 211659, 1041441, 5156642, 25640456, 127773475, 637624313, 3184387574, 15910947980, 79521737939, 397510726681, 1987259550002, 9935420646296, 49674470817195, 248364482308833, 1241798790172214
Offset: 0
For a(4)=11, the 7 achiral patterns are AAAA, AABB, ABAB, ABBA, ABCA, ABBC, and ABCD. The 4 chiral pairs are AAAB-ABBB, AABA-ABAA, AABC-ABCC, and ABAC-ABCB.
- 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]
- Muniru A Asiru, Table of n, a(n) for n = 0..1000
- Allan Bickle, How to Count k-Paths, J. Integer Sequences, 25 (2022) Article 22.5.6.
- Allan Bickle, A Survey of Maximal k-degenerate Graphs and k-Trees, Theory and Applications of Graphs 0 1 (2024) Article 5.
- J. Eckhoff, Extremal interval graphs, J. Graph Theory 17 1 (1993), 117-127.
- L. Markenzon, O. Vernet, and P. R. da Costa Pereira, A clique-difference encoding scheme for labelled k-path graphs, Discrete Appl. Math. 156 (2008), 3216-3222.
- Index entries for linear recurrences with constant coefficients, signature (11, -34, -16, 247, -317, -200, 610, -300).
The sequences above converge to
A103293(n+1).
-
Ach[n_, k_] := Ach[n, k] = If[n<2, Boole[n==k && n>=0], k Ach[n-2,k] + Ach[n-2,k-1] + Ach[n-2,k-2]] (* A304972 *)
k=5; Table[Sum[StirlingS2[n,j]+Ach[n,j],{j,0,k}]/2,{n,0,40}] (* Robert A. Russell, Oct 28 2018 *)
LinearRecurrence[{11, -34, -16, 247, -317, -200, 610, -300}, {1, 1, 2, 4, 11, 32, 116, 455, 1993}, 40] (* Robert A. Russell, Oct 28 2018 *)
A056325
Number of reversible string structures with n beads using a maximum of six different colors.
Original entry on oeis.org
1, 1, 2, 4, 11, 32, 117, 467, 2135, 10480, 55091, 301633, 1704115, 9819216, 57365191, 338134521, 2005134639, 11937364184, 71254895955, 426063226937, 2550552314219, 15280103807200, 91588104196415, 549159428968825
Offset: 0
For a(4)=11, the 7 achiral patterns are AAAA, AABB, ABAB, ABBA, ABCA, ABBC, and ABCD. The 4 chiral pairs are AAAB-ABBB, AABA-ABAA, AABC-ABCC, and ABAC-ABCB.
- 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]
- Colin Barker, Table of n, a(n) for n = 0..1000
- Allan Bickle, How to Count k-Paths, J. Integer Sequences, 25 (2022) Article 22.5.6.
- Allan Bickle, A Survey of Maximal k-degenerate Graphs and k-Trees, Theory and Applications of Graphs 0 1 (2024) Article 5.
- J. Eckhoff, Extremal interval graphs, J. Graph Theory 17 1 (1993), 117-127.
- L. Markenzon, O. Vernet, and P. R. da Costa Pereira, A clique-difference encoding scheme for labelled k-path graphs, Discrete Appl. Math. 156 (2008), 3216-3222.
- Index entries for linear recurrences with constant coefficients, signature (16,-84,84,685,-2140,180,7200,-8244,-4176,11664,-5184).
The sequences above converge to
A103293(n+1).
-
Ach[n_, k_] := Ach[n, k] = If[n<2, Boole[n==k && n>=0], k Ach[n-2,k] + Ach[n-2,k-1] + Ach[n-2,k-2]] (* A304972 *)
k=6; Table[Sum[StirlingS2[n,j]+Ach[n,j],{j,0,k}]/2,{n,0,40}] (* Robert A. Russell, Oct 28 2018 *)
LinearRecurrence[{16, -84, 84, 685, -2140, 180, 7200, -8244, -4176, 11664, -5184}, {1, 1, 2, 4, 11, 32, 117, 467, 2135, 10480, 55091, 301633}, 40] (* Robert A. Russell, Oct 28 2018 *)
-
Vec((1 - 15*x + 70*x^2 - 28*x^3 - 654*x^4 + 1479*x^5 + 783*x^6 - 5481*x^7 + 3512*x^8 + 4640*x^9 - 5922*x^10 + 1530*x^11) / ((1 - x)*(1 - 2*x)*(1 - 3*x)*(1 - 4*x)*(1 - 6*x)*(1 - 2*x^2)*(1 - 3*x^2)*(1 - 6*x^2)) + O(x^30)) \\ Colin Barker, Apr 15 2020
A320528
Number of chiral pairs of color patterns (set partitions) in a row of length n using exactly 5 colors (subsets).
Original entry on oeis.org
0, 0, 0, 0, 0, 6, 64, 508, 3428, 21132, 123050, 688850, 3752350, 20032446, 105372624, 548066568, 2826316248, 14478890712, 73794322750, 374602205590, 1895629599050, 9568906539786, 48208435317284, 242500368793628, 1218342441784468, 6115097961883092, 30669103347259650, 153720181809997530, 770100204404335350, 3856500105221902326
Offset: 1
For a(6)=6, the chiral pairs are AABCDE-ABCDEE, ABACDE-ABCDED, ABCADE-ABCDEC, ABCDAE-ABCDEB, ABBCDE-ABCDDE, and ABCBDE-ABCDCE.
- Colin Barker, Table of n, a(n) for n = 1..1000
- Index entries for linear recurrences with constant coefficients, signature (13,-48,-36,551,-683,-1542,3546,80,-4280,2400).
-
I:=[0,0,0,0,0,6,64,508,3428,21132]; [n le 10 select I[n] else 13*Self(n-1)-48*Self(n-2)-36*Self(n-3)+551*Self(n-4)-683*Self(n-5) -1542*Self(n-6)+3546*Self(n-7)+80*Self(n-8)-4280*Self(n-9) +2400*Self(n-10): n in [1..30]]; // G. C. Greubel, Oct 20 2018
-
k=5; Table[(StirlingS2[n,k] - If[EvenQ[n], 3StirlingS2[n/2+2,5] - 11StirlingS2[n/2+1,5] + 6StirlingS2[n/2,5], StirlingS2[(n+5)/2,5] - 3StirlingS2[(n+3)/2,5]])/2, {n,30}]
Ach[n_, k_] := Ach[n, k] = If[n<2, Boole[n==k && n>=0], k Ach[n-2,k] + Ach[n-2,k-1] + Ach[n-2,k-2]] (* A304972 *)
k = 5; Table[(StirlingS2[n, k] - Ach[n, k])/2, {n, 1, 30}]
LinearRecurrence[{13, -48, -36, 551, -683, -1542, 3546, 80, -4280, 2400}, {0, 0, 0, 0, 0, 6, 64, 508, 3428, 21132}, 30]
-
m=30; v=concat([0,0,0,0,0,6,64,508,3428,21132], vector(m-10)); for(n=11, m, v[n] = 13*v[n-1]-48*v[n-2]-36*v[n-3]+551*v[n-4]-683*v[n-5] -1542*v[n-6] +3546*v[n-7] +80*v[n-8] -4280*v[n-9] +2400*v[n-10]); v \\ G. C. Greubel, Oct 20 2018
Showing 1-4 of 4 results.
Comments