cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-4 of 4 results.

A305621 Triangle read by rows: T(n,k) is the number of rows of n colors with exactly k different colors counting chiral pairs as equivalent, i.e., the rows are reversible.

Original entry on oeis.org

1, 1, 1, 1, 4, 3, 1, 8, 18, 12, 1, 18, 78, 120, 60, 1, 34, 273, 780, 900, 360, 1, 70, 921, 4212, 8400, 7560, 2520, 1, 134, 2916, 20424, 63000, 95760, 70560, 20160, 1, 270, 9150, 93360, 417120, 952560, 1164240, 725760, 181440, 1, 526, 28065, 409380, 2551560, 8217720, 14817600, 15120000, 8164800, 1814400, 1, 1054, 85773, 1749780, 14804700, 64615680, 161247240, 239500800, 209563200, 99792000, 19958400
Offset: 1

Views

Author

Robert A. Russell, Jun 06 2018

Keywords

Examples

			The triangle begins:
  1;
  1,   1;
  1,   4,    3;
  1,   8,   18,      12;
  1,  18,   78,     120,      60;
  1,  34,  273,     780,     900,     360;
  1,  70,  921,    4212,    8400,    7560,     2520;
  1, 134, 2916,   20424,   63000,   95760,    70560,    20160;
  1, 270, 9150,   93360,  417120,  952560,  1164240,   725760,  181440;
  ...
For T(3,2)=4, the achiral color rows are ABA and BAB, while the chiral pairs are AAB-BAA and ABB-BBA. For T(3,3)=3, the color rows are all chiral pairs: ABC-CBA, ACB-BCA, and BAC-CAB.
		

Crossrefs

Columns 1-6 are A057427, A056309, A056310, A056311, A056312, and A056313.
Row sums are A326963.
A019538 counts chiral pairs as two, i.e., the rows are not reversible.

Programs

  • Mathematica
    Table[(k!/2) (StirlingS2[n, k] + StirlingS2[Ceiling[n/2], k]), {n, 1, 15}, {k, 1, n}] // Flatten
  • PARI
    T(n,k) = {k! * (stirling(n,k,2) + stirling((n+1)\2,k,2)) / 2} \\ Andrew Howroyd, Sep 13 2019

Formula

T(n,k) = (k!/2) * (S2(n,k) + S2(ceiling(n/2),k)) where S2(n,k) is the Stirling subset number A008277.
T(n,k) = (A019538(n,k) + A019538(ceiling(n/2),k)) / 2.
G.f. for column k: k! x^k / (2*Product_{i=1..k}(1-ix)) + k! (x^(2k-1)+x^(2k)) / (2*Product{i=1..k}(1-i x^2)). - Robert A. Russell, Sep 25 2018
T(n, k) = Sum_{i=0..k} (-1)^(k-i)*binomial(k,i)*A277504(n, i). - Andrew Howroyd, Sep 13 2019

A056330 Number of reversible string structures with n beads using exactly six different colors.

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 12, 142, 1346, 11511, 89974, 662674, 4662574, 31724735, 210361046, 1367510326, 8752976610, 55343947975, 346541488998, 2153041587538, 13292844257198, 81652683550119, 499484958151630
Offset: 1

Views

Author

Keywords

Comments

A string and its reverse are considered to be equivalent. Permuting the colors will not change the structure.
Number of set partitions for an unoriented row of n elements using exactly six different elements. An unoriented row is equivalent to its reverse. - Robert A. Russell, Oct 14 2018

Examples

			For a(7)=12, the color patterns are ABCDEFA, ABCDEBF, ABCDCEF, AABCDEF, ABACDEF, ABCADEF, ABCDAEF, ABBCDEF, ABCBDEF, ABCDBEF, and ABCCDEF. The first three are achiral. - _Robert A. Russell_, Oct 14 2018
		

References

  • 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]

Crossrefs

Column 6 of A284949.
Cf. A056313.
Cf. A000770 (oriented), A320529 (chiral), A304976 (achiral).

Programs

  • Mathematica
    k=6; Table[(StirlingS2[n,k] + If[EvenQ[n], StirlingS2[n/2+3,6] - 3StirlingS2[n/2+2,6] - 8StirlingS2[n/2+1,6] + 16StirlingS2[n/2,6], 3StirlingS2[(n+5)/2,6] - 17StirlingS2[(n+3)/2,6] + 20StirlingS2[(n+1)/2,6]])/2, {n,30}] (* Robert A. Russell, Oct 14 2018 *)
    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]]
    k = 6; Table[(StirlingS2[n, k] + Ach[n, k])/2, {n, 1, 30}] (* Robert A. Russell, Oct 14 2018 *)
    LinearRecurrence[{21, -159, 399, 1085, -8085, 9555, 34125, -98644, 5544, 253764, -248724, -136800, 317520, -129600}, {0, 0, 0, 0, 0, 1, 12, 142, 1346, 11511, 89974, 662674, 4662574, 31724735}, 40] (* Robert A. Russell, Oct 14 2018 *)

Formula

a(n) = A056325(n) - A056324(n).
From Robert A. Russell, Oct 14 2018: (Start)
a(n) = (S2(n,k) + A(n,k))/2, where k=6 is the number of colors (sets), S2 is the Stirling subset number A008277 and A(n,k) = [n>1] * (k*A(n-2,k) + A(n-2,k-1) + A(n-2,k-2)) + [n<2 & n==k & n>=0].
G.f.: (x^6 / Product_{k=1..6} (1 - k*x) + x^6 (1+x) (1-4x^2) (1+2x-x^2-4x^3) / Product_{k=1..6} (1 - k*x^2)) / 2.
a(n) = (A000770(n) + A304976(n)) / 2 = A000770(n) - A320529(n) = A320529(n) + A304976(n). (End)

A056322 Number of primitive (aperiodic) reversible strings with n beads using exactly six different colors.

Original entry on oeis.org

0, 0, 0, 0, 0, 360, 7560, 95760, 952560, 8217720, 64615680, 476514720, 3355679880, 22837094280, 151449674040, 984573560880, 6302070915840, 39847410373680, 249509384858160, 1550188402338240, 9570844671217200
Offset: 1

Views

Author

Keywords

Comments

A string and its reverse are considered to be equivalent.

References

  • 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]

Crossrefs

Formula

Sum mu(d)*A056313(n/d) where d|n.

A305626 Number of chiral pairs of rows of n colors with exactly 6 different colors.

Original entry on oeis.org

0, 0, 0, 0, 0, 360, 7560, 95760, 952560, 8217720, 64614960, 476514360, 3355664760, 22837086720, 151449482520, 984573465120, 6302069010720, 39847409421480, 249509368422720, 1550188394120520, 9570844541994120, 58789922099665680, 359629148397511080, 2192484972513916080, 13329510116645202480, 80854267307329446840, 489528474458978944080, 2959252601445086408280, 17866194139995100525080, 107751636988750077294240, 649286502010403671101240
Offset: 1

Views

Author

Robert A. Russell, Jun 06 2018

Keywords

Comments

If the row is achiral, i.e., the same as its reverse, we ignore it. If different from its reverse, we count it and its reverse as a chiral pair.

Examples

			For a(6) = 360, the chiral pairs are the 6! = 720 permutations of ABCDEF, each paired with its reverse.
		

Crossrefs

Sixth column of A305622.
A056457(n) is number of achiral rows of n colors with exactly 6 different colors.

Programs

  • Mathematica
    k=6; Table[(k!/2) (StirlingS2[n,k] - StirlingS2[Ceiling[n/2],k]), {n, 1, 40}]
  • PARI
    a(n) = 360*(stirling(n, 6, 2) - stirling(ceil(n/2), 6, 2)); \\ Altug Alkan, Sep 26 2018

Formula

a(n) = (k!/2) * (S2(n,k) - S2(ceiling(n/2),k)), with k=6 colors used and where S2(n,k) is the Stirling subset number A008277.
a(n) = (A000920(n) - A056457(n)) / 2.
a(n) = A000920(n) - A056313(n) = A056313(n) - A056457(n).
G.f.: -(k!/2) * (x^(2k-1) + x^(2k)) / Product_{j=1..k} (1 - j*x^2) + (k!/2) * x^k / Product_{j=1..k} (1 - j*x) with k=6 colors used.
Showing 1-4 of 4 results.