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.

A305540 Triangle read by rows: T(n,k) is the number of achiral loops (necklaces or bracelets) of length n using exactly k different colors.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 4, 3, 1, 6, 6, 1, 10, 21, 12, 1, 14, 36, 24, 1, 22, 93, 132, 60, 1, 30, 150, 240, 120, 1, 46, 345, 900, 960, 360, 1, 62, 540, 1560, 1800, 720, 1, 94, 1173, 4980, 9300, 7920, 2520, 1, 126, 1806, 8400, 16800, 15120, 5040, 1, 190, 3801, 24612, 71400, 103320, 73080, 20160, 1, 254, 5796, 40824, 126000, 191520, 141120, 40320
Offset: 1

Views

Author

Robert A. Russell, Jun 04 2018

Keywords

Comments

The number of achiral necklaces is equivalent to the number of achiral bracelets.

Examples

			The triangle begins with T(1,1):
1;
1,   1;
1,   2;
1,   4,     3;
1,   6,     6;
1,  10,    21,     12;
1,  14,    36,     24;
1,  22,    93,    132,     60;
1,  30,   150,    240,    120;
1,  46,   345,    900,    960,     360;
1,  62,   540,   1560,   1800,     720;
1,  94,  1173,   4980,   9300,    7920,    2520;
1, 126,  1806,   8400,  16800,   15120,    5040;
1, 190,  3801,  24612,  71400,  103320,   73080,   20160;
1, 254,  5796,  40824, 126000,  191520,  141120,   40320;
1, 382, 11973, 113652, 480060, 1048320, 1234800,  745920, 181440;
1, 510, 18150, 186480, 834120, 1905120, 2328480, 1451520, 362880;
For a(4,2)=4, the achiral loops are AAAB, AABB, ABAB, and ABBB.

Crossrefs

Odd rows are A019538.
Even rows are A172106.
Columns 1-6 are A057427, A027383, A056489, A056490, A056491, and A056492.

Programs

  • Mathematica
    Table[(k!/2) (StirlingS2[Floor[(n + 1)/2], k] + StirlingS2[Ceiling[(n + 1)/2], k]), {n, 1, 15}, {k, 1, Ceiling[(n + 1)/2]}] // Flatten
  • PARI
    T(n, k) = (k!/2)*(stirling(floor((n+1)/2), k, 2)+stirling(ceil((n+1)/2), k, 2));
tabf(nn) = for(n=1, nn, for (k=1, ceil((n+1)/2), print1(T(n, k), ", ")); print); \\ Michel Marcus, Jul 02 2018

Formula

T(n,k) = (k!/2) * (S2(floor((n+1)/2),k) + S2(ceiling((n+1)/2),k)), where S2(n,k) is the Stirling subset number A008277.
T(n,k) = 2*A273891(n,k) - A087854(n,k).
G.f. for column k>1: (k!/2) * x^(2k-2) * (1+x)^2 / Product_{i=1..k} (1-i x^2). - Robert A. Russell, Sep 26 2018

A056344 Number of bracelets of length n using exactly four different colored beads.

Original entry on oeis.org

0, 0, 0, 3, 24, 136, 612, 2619, 10480, 41388, 159780, 614058, 2341920, 8919816, 33905188, 128907279, 490213680, 1866127840, 7111777860, 27140369148, 103721218000, 396974781456, 1521577377012, 5840547488954
Offset: 1

Views

Author

Marks R. Nester

Keywords

Comments

Turning over will not create a new bracelet.

Examples

			For a(4)=3, the arrangements are ABCD, ABDC, and ACBD, all chiral, their reverses being ADCB, ACDB, and ADBC respectively.

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 4 of A273891.
Cf. A056284 (oriented), A056490 (achiral), A305543 (chiral).

Programs

  • Mathematica
    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}];
a[n_] := T[n, 4];
Array[a, 24] (* Jean-François Alcover, Nov 05 2017, after Andrew Howroyd *)
k=4; 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,30}] (* Robert A. Russell, Sep 27 2018 *)

Formula

a(n) = A032275(n) - 4*A027671(n) + 6*A000029(n) - 4.
From Robert A. Russell, Sep 27 2018: (Start)
a(n) = (k!/4) * (S2(floor((n+1)/2),k) + S2(ceiling((n+1)/2),k)) + (k!/2n) * Sum_{d|n} phi(d) * S2(n/d,k), where k=4 is the number of colors and S2 is the Stirling subset number A008277.
G.f.: (k!/4) * x^(2k-2) * (1+x)^2 / Product_{i=1..k} (1-i x^2) - Sum_{d>0} (phi(d)/2d) * Sum_{j} (-1)^(k-j) * C(k,j) * log(1-j x^d), where k=4 is the number of colors.
a(n) = (A056284(n) + A056490(n)) / 2 = A056284(n) - A305543(n) = A305543(n) + A056490(n). (End)

A305543 Number of chiral pairs of color loops of length n with exactly 4 different colors.

Original entry on oeis.org

0, 0, 0, 3, 24, 124, 588, 2487, 10240, 40488, 158220, 609078, 2333520, 8895204, 33864364, 128793627, 490027200, 1865625340, 7110959340, 27138210888, 103717720000, 396965694444, 1521562700988, 5840509760582, 22450188684288, 86412088367640, 333035003543900, 1285108410802038, 4964755661788560, 19201631174055992
Offset: 1

Views

Author

Robert A. Russell, Jun 04 2018

Keywords

Examples

			For a(4)=3, the chiral pairs of color loops are ABCD-ADCB, ACBD-ADBC, and ABDC-ACDB.

Crossrefs

Fourth column of A305541.

Programs

  • Mathematica
    k=4; Table[(k!/(2n)) DivisorSum[n, EulerPhi[#] StirlingS2[n/#, k] &] - (k!/4) (StirlingS2[Floor[(n+1)/2], k] + StirlingS2[Ceiling[(n+1)/2], k]), {n, 1, 40}]
  • PARI
    a(n) = my(k=4); -(k!/4)*(stirling(floor((n+1)/2),k,2) + stirling(ceil((n+1)/2),k,2)) + (k!/(2*n))*sumdiv(n, d, eulerphi(d)*stirling(n/d,k,2)); \\ Michel Marcus, Jun 06 2018

Formula

a(n) = -(k!/4)*(S2(floor((n+1)/2),k) + S2(ceiling((n+1)/2),k)) + (k!/(2n))*Sum_{d|n} phi(d)*S2(n/d,k), with k=4 different colors used and where S2(n,k) is the Stirling subset number A008277.
a(n) = (A052824(n) - A056490(n)) / 2.
a(n) = A305541(n,4).
G.f.: -6 * x^6 * (1+x)^2 / Product_{j=1..4} (1-j*x^2) - Sum_{d>0} (phi(d)/(2d)) * (log(1-4x^d) - 4*log(1-3x^3) + 6*log(1-2x^d) - 4*log(1-x^d)).

A056500 Number of primitive (period n) periodic palindromes using exactly four different symbols.

Original entry on oeis.org

0, 0, 0, 0, 0, 12, 24, 132, 240, 900, 1560, 4968, 8400, 24588, 40824, 113520, 186480, 502248, 818520, 2157360, 3497976, 9085452, 14676024, 37723260, 60780720, 155082900, 249401640, 632947728, 1016542800, 2569816476, 4123173624, 10393520640
Offset: 1

Views

Author

Marks R. Nester

Keywords

Examples

			For example, aaabbb is not a (finite) palindrome but it is a periodic palindrome.

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]

Links

Crossrefs

Column 4 of A327878.
Cf. A056465, A056490.

Formula

a(n) = Sum_{d|n} mu(d)*A056490(n/d).

Extensions

Terms corrected by Andrew Howroyd, Sep 28 2019
Showing 1-4 of 4 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.