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.

User: Julian Hatfield Iacoponi

Julian Hatfield Iacoponi's wiki page.

Julian Hatfield Iacoponi has authored 6 sequences.

A374419 Triangle read by rows: T(n,k) = number of permutations in symmetric group S_n with an even number of non-fixed point cycles, without k<=n particular fixed points.

Original entry on oeis.org

1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 4, 3, 3, 3, 3, 36, 32, 29, 26, 23, 20, 296, 260, 228, 199, 173, 150, 130, 2360, 2064, 1804, 1576, 1377, 1204, 1054, 924, 19776, 17416, 15352, 13548, 11972, 10595, 9391, 8337, 7413, 180544, 160768, 143352, 128000, 114452, 102480, 91885, 82494, 74157, 66744
Offset: 0

Author

Keywords

Examples

			Triangle array T(n,k) begins:
  n: {k<=n}
  0:  {1}
  1:  {1,       0}
  2:  {1,       0,       0}
  3:  {1,       0,       0,       0}
  4:  {4,       3,       3,       3,       3}
  5:  {36,      32,      29,      26,      23,      20}
  6:  {296,     260,     228,     199,     173,     150,     130}
  7:  {2360,    2064,    1804,    1576,    1377,    1204,    1054,   924}
T(n,0) = A373339(n) = the number of permutations in S_n without k=0 particular fixed points (i.e., not filtered, so all permutations) with an even number of cycles.
T(n,n) = A216778(n) = the number of permutations in S_n without k=n particular fixed points (i.e., filtered down to just the derangements) with an even number of cycles.
T(4,1<=k<=4) = 3 because S_4 contains 3 permutations with an even number of non-fixed point cycles without k=1,2,3 or 4 particular fixed points, namely the 3 (2,2)-cycles: (12)(34), (13)(24), (14)(23).
T(4,0) = 4 is one more than the above because it includes the permutation without k=0 particular fixed points, i.e., the identity permutation of 4 fixed points.
		

Crossrefs

Cf. A374420 (odd case), A216778 (main diagonal), A373339 (first column).

Programs

  • Mathematica
    Table[Table[1/2*(Sum[(-1)^j*Binomial[k, j]*(n - j)!, {j, 0, k}] + 2^(n - k - 1)*(2 - n - k)), {k, 0, n}], {n, 0, 10}]

Formula

T(n,k) = T(n,k-1) - T(n-1,k-1) with T(n,0) = A373339(n).
T(n,k) = (1/2) * (Sum_{j=0..k} (-1)^j * binomial(k,j) * (n-j)! + 2^(n-k-1)*(2-n-k)).

A374420 Triangle T(n, k) for the number of permutations of symmetric group S_n with an odd number of non-fixed point cycles, without k <= n particular fixed points.

Original entry on oeis.org

0, 0, 0, 1, 1, 1, 5, 4, 3, 2, 20, 15, 11, 8, 6, 84, 64, 49, 38, 30, 24, 424, 340, 276, 227, 189, 159, 135, 2680, 2256, 1916, 1640, 1413, 1224, 1065, 930, 20544, 17864, 15608, 13692, 12052, 10639, 9415, 8350, 7420, 182336, 161792, 143928, 128320, 114628, 102576, 91937, 82522, 74172, 66752
Offset: 0

Author

Keywords

Examples

			Triangle array T(n,k)
n: {k<=n}
0:  {0}
1:  {0,       0}
2:  {1,       1,       1}
3:  {5,       4,       3,       2}
4:  {20,      15,      11,      8,       6}
5:  {84,      64,      49,      38,      30,      24}
6:  {424,     340,     276,     227,     189,     159,     135}
7:  {2680,    2256,    1916,    1640,    1413,    1224,    1065,   930}
T(n,0) = A373340(n) = the number of permutations in S_n without k=0 particular fixed points (i.e., not filtered, so all permutations) with an odd number of cycles.
T(n,n) = A216779(n) = the number of permutations in S_n without k=n particular fixed points (i.e., filtered down to just the derangements) with an odd number of cycles.
T(2,k) = 1 because S_2 contains 1 permutation with an odd number of non-fixed point cycles without k=0,1 or 2 particular fixed points, namely the derangement (12).
T(3,2) = 3 because S_3 contains 3 permutations with an odd number of non-fixed point cycles without k=2 particular fixed points: say, without fixed points (1) and (2), namely (12)(3), (123), (132).
		

Crossrefs

Cf. A374419 (even case), A216779 (main diagonal), A373340 (first column).

Programs

  • Mathematica
    Table[Table[1/2*(Sum[(-1)^j*Binomial[k, j]*(n - j)!, {j, 0, k}] - 2^(n - k - 1)*(2 - n - k)), {k, 0, n}], {n, 0, 10}]

Formula

T(n,k) = T(n,k-1) - T(n-1,k-1) with T(n,0) = A373340(n).
T(n,k) = (1/2)*(Sum_{j=0..k} (-1)^j * binomial(k,j) * (n-j)! - 2^(n-k-1)*(2-n-k)).
T(n,k) = (A047920(n, k) + 2^(n-k-1)*(n+k-2))/2. - Peter Luschny, Jul 28 2024

A373418 Triangle read by rows: T(n,k) is the number of permutations in symmetric group S_n with (n-k) fixed points and an odd number of non-fixed point cycles. Equivalent to the number of cycles of n items with cycle type defined by non-unity partitions of k <= n that contain an odd number of parts.

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 0, 0, 3, 2, 0, 0, 6, 8, 6, 0, 0, 10, 20, 30, 24, 0, 0, 15, 40, 90, 144, 135, 0, 0, 21, 70, 210, 504, 945, 930, 0, 0, 28, 112, 420, 1344, 3780, 7440, 7420, 0, 0, 36, 168, 756, 3024, 11340, 33480, 66780, 66752, 0, 0, 45, 240, 1260, 6048, 28350, 111600, 333900, 667520, 667485
Offset: 0

Author

Keywords

Comments

a(n) + A343417(n) = A098825(n) = partial derangement "rencontres" triangle.
a(n) - A343417(n) = (k-1) * binomial(n,k) = A127717(n-1,k-1).
Difference of 2nd and 1st leading diagonals (n > 0):
T(n,n-1) - T(n,n) = 0,-1,1,2,6,9,15,20,28,35,45,54,...
= (0-1) + (2+1) + (4+3) + (6+5) + (8+7) + (10+9) + ...
Cf. A084265(n) with 2 terms 0,-1 prepended (moving its offset from 0 to -2).

Examples

			Triangle begins:
   n: {k<=n}
   0: {0}
   1: {0, 0}
   2: {0, 0,  1}
   3: {0, 0,  3,   2}
   4: {0, 0,  6,   8,    6}
   5: {0, 0, 10,  20,   30,   24}
   6: {0, 0, 15,  40,   90,  144,   135}
   7: {0, 0, 21,  70,  210,  504,   945,    930}
   8: {0, 0, 28, 112,  420, 1344,  3780,   7440,   7420}
   9: {0, 0, 36, 168,  756, 3024, 11340,  33480,  66780,  66752}
  10: {0, 0, 45, 240, 1260, 6048, 28350, 111600, 333900, 667520, 667485}
T(n,0) = 0 because the sole permutation in S_n with n fixed points, namely the identity permutation, has 0 non-fixed point cycles, not an odd number.
T(n,1) = 0 because there are no permutations in S_n with (n-1) fixed points.
Example:
T(3,3) = 2 since S_3 contains 3 permutations with 0 fixed points and an odd number of non-fixed point cycles, namely the derangements (123) and (132).
Worked Example:
T(7,6) = 945 permutations in S_7 with 1 fixed point and an odd number of non-fixed point cycles;
T(7,6) = 945 possible 6- and (2,2,2)-cycles of 7 items.
N(n,y) = possible y-cycles of n items;
N(n,y) = (n!/(n-k)!) / (M(y) * s(y)).
y = partition of k<=n with q parts = (p_1, p_2, ..., p_i, ..., p_q) such that k = Sum_{i=1..q} p_i.
Or:
y = partition of k<=n with d distinct parts, each with multiplicity m_j = (y_1^m_1, y_2^m_2, ..., y_j^m_j, ..., y_d^m_d) such that k = Sum_{j=1..d} m_j*y_j.
M(y) = Product_{i=1..q} p_i = Product_{j=1..d} y_j^m_j.
s(y) = Product_{j=1..d} m_j! ("symmetry of repeated parts").
Note: (n!/(n-k)!) / s(y) = multinomial(n, {m_j}).
Therefore:
T(7,6) = N(7,y=(6)) + N(7,y=(2^3))
       = (7!/6) + (7!/(2^3)/3!)
       = 7! * (1/6 + 1/48)
       = 5040 * (3/16);
T(7,6) = 945.
		

Crossrefs

Cf. A373417 (even case), A373340 (row sums), A216779 (main diagonal).

Programs

  • Maple
    b:= proc(n, t) option remember; `if`(n=0, t, add(expand(`if`(j>1, x^j, 1)*
          b(n-j, irem(t+signum(j-1), 2)))*binomial(n-1, j-1)*(j-1)!, j=1..n))
        end:
    T:= n-> (p-> seq(coeff(p, x, i), i=0..n))(b(n, 0)):
    seq(T(n), n=0..10);
  • Mathematica
    Table[Table[n!/(n-k)!/2 * (Sum[(-1)^j/j!, {j, 0, k}] - ((k - 1)/k!)),{k,1,n}], {n,1,10}]

Formula

T(n,k) = (n!/(n-k)!/2) * ((Sum_{j=0..k} (-1)^j/j!) + (k-1)/k!). Cf. Sum_{j=0..k} (-1)^j/j! = A053557(k) / A053556(k).

A373417 Triangle T(n,k) for the number of permutations in symmetric group S_n with (n-k) fixed points and an even number of non-fixed point cycles. Equivalent to the number of cycles of n items with cycle type defined by non-unity partitions of k<=n that contain an even number of parts.

Original entry on oeis.org

1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 3, 1, 0, 0, 0, 15, 20, 1, 0, 0, 0, 45, 120, 130, 1, 0, 0, 0, 105, 420, 910, 924, 1, 0, 0, 0, 210, 1120, 3640, 7392, 7413, 1, 0, 0, 0, 378, 2520, 10920, 33264, 66717, 66744, 1, 0, 0, 0, 630, 5040, 27300, 110880, 333585, 667440, 667476
Offset: 0

Author

Keywords

Comments

A343418(n) + a(n) = A098825(n) = partial derangement "rencontres" triangle.
A343418(n) - a(n) = (k-1) * binomial(n,k) = A127717(n-1,k-1).
Difference of 1st and 2nd leading diagonals (n > 0).
T(n,n) - T(n,n-1) = -1,0,0,3,5,10,14,21,27,36,44,...
= (-1) + (1+0) + (3+2) + (5+4) + (7+6) + (9+8) + ...
Cf. A176222(n) with 2 terms -1,0 prepended (moving its offset from 3 to 1).

Examples

			Triangle array T(n,k):
  n:  {k<=n}
  0:  {1}
  1:  {1, 0}
  2:  {1, 0, 0}
  3:  {1, 0, 0, 0}
  4:  {1, 0, 0, 0,   3}
  5:  {1, 0, 0, 0,  15,   20}
  6:  {1, 0, 0, 0,  45,  120,   130}
  7:  {1, 0, 0, 0, 105,  420,   910,    924}
  8:  {1, 0, 0, 0, 210, 1120,  3640,   7392,   7413}
  9:  {1, 0, 0, 0, 378, 2520, 10920,  33264,  66717,  66744}
  10: {1, 0, 0, 0, 630, 5040, 27300, 110880, 333585, 667440, 667476}
T(n,0) = 1 due to sole permutation in S_n with n fixed points, namely the identity permutation, with 0 non-fixed point cycles, an even number. (T(0,0)=1 relies on S_0 containing an empty permutation.)
T(n,1) = 0 due to no permutations in S_n with (n-1) fixed points.
T(n,2) = T(n,3) = 0 due to only non-unity partitions of 2 and 3 being of odd length, namely the trivial partitions (2),(3).
Example:
T(4,4) = 3 since S_4 contains 3 permutations with 0 fixed points and an even number of non-fixed point cycles, namely the derangements: (12)(34),(13)(24),(14)(23).
Worked Example:
T(7,6) = 910 permutations in S_7 with 1 fixed point and an even number of non-fixed point cycles.
T(7,6) = 910 possible (4,2)- and (3,3)-cycles of 7 items.
N(n,y) = possible y-cycles of n items.
N(n,y) = (n!/(n-k)!) / (M(y) * s(y)).
y = partition of k<=n with q parts = (p_1, p_2, ..., p_i, ..., p_q)
s.t. k = Sum_{i=1..q} p_i.
Or:
y = partition of k<=n with d distinct parts, each with multiplicity m_j = (y_1^m_1, y_2^m_2, ..., y_j^m_j, ..., y_d^m_d)
s.t. k = Sum_{j=1..d} m_j*y_j.
M(y) = Product_{i=1..q} p_i = Product_{j=1..d} y_j^m_j.
s(y) = Product_{j=1..d} m_j! ("symmetry of repeated parts").
Note: (n!/(n-k)!) / s(y) = multinomial(n, {m_j}).
Therefore:
T(7,6) = N(7,y=(4,2)) + N(7,y=(3^2))
       = (7!/(4*2)) + (7!/(3^2)/2!)
       = 7! * (1/8 + 1/18)
       = 5040 * (13/72)
T(7,6) = 910.
		

Crossrefs

Cf. A373418 (odd case), A373339 (row sums), A216778 (main diagonal).

Programs

  • Maple
    b:= proc(n, t) option remember; `if`(n=0, t, add(expand(`if`(j>1, x^j, 1)*
          b(n-j, irem(t+signum(j-1), 2)))*binomial(n-1, j-1)*(j-1)!, j=1..n))
        end:
    T:= n-> (p-> seq(coeff(p, x, i), i=0..n))(b(n, 1)):
    seq(T(n), n=0..10);  # Alois P. Heinz, Jun 04 2024
  • Mathematica
    Table[Table[n!/(n-k)!/2 * (Sum[(-1)^j/j!, {j, 0, k}] - ((k - 1)/k!)), {k, 0, n}], {n, 0, 10}]

Formula

T(n,k) = (n!/(n-k)!/2) * (Sum_{j=0..k} (-1)^j/j! - (k-1)/k!) Cf. Sum_{j=0..k} (-1)^j/j! = A053557(k) / A053556(k).

A373340 Number of permutations of symmetric group S_n with an odd number of cycles of length 2 or more.

Original entry on oeis.org

0, 0, 1, 5, 20, 84, 424, 2680, 20544, 182336, 1816448, 19963008, 239511040, 3113532928, 43589194752, 653837290496, 10461395173376, 177843714539520, 3201186853912576, 60822550206644224, 1216451004093038592, 25545471085864681472, 562000363888824811520
Offset: 0

Author

Keywords

Examples

			a(0)=0 due to the sole permutation in S_0 being the empty permutation, with 0 non-fixed point cycles, not an odd number.
a(1)=0 due to the sole permutation in S_1 being the fixed point (1), with 0 non-fixed point cycles, not an odd number.
a(2)=1 due to 1 permutation in S_2 with an odd number of non-fixed point cycles: (12), with 1 non-fixed point cycle.
a(3)=5 due to 5 permutations in S_3 with an odd number of non-fixed point cycles: (12)(3),(13)(2),(23)(1),(123),(132), all with 1 non-fixed point cycle.
		

Crossrefs

Cf. A373339 (even case), A000142, A001710, A036289.
Row sums of triangle A373418.

Programs

  • PARI
    a(n) = n!/2 + (n-2)*2^(n-2); \\ Michel Marcus, Jun 05 2024

Formula

a(n) = n!/2 + (n-2)*2^(n-2) = A001710(n) + A036289(n-2).
a(n) = A000142(n) - A373339(n).
E.g.f.: (1/(1 - x) - exp(2*x)*(1 - x))/2. - Stefano Spezia, Jun 05 2024

A373339 Number of permutations in symmetric group S_n with an even number of cycles of length 2 or more.

Original entry on oeis.org

1, 1, 1, 1, 4, 36, 296, 2360, 19776, 180544, 1812352, 19953792, 239490560, 3113487872, 43589096448, 653837077504, 10461394714624, 177843713556480, 3201186851815424, 60822550202187776, 1216451004083601408, 25545471085844758528, 562000363888782868480
Offset: 0

Author

Keywords

Examples

			a(1)=a(2)=a(3)=1 due to S_1,S_2,S_3 containing 1 permutation with an even number of non-fixed point cycles: the identity permutation, with 0 non-fixed point cycles.
a(4)=4 due to S_4 containing 4 permutations with an even number of non-fixed point cycles: the 3 (2,2)-cycles (12)(34),(13)(24),(14)(23); and the identity permutation (1)(2)(3)(4).
		

Crossrefs

Cf. A373340 (odd case), A000142, A001710, A036289.
Row sums of triangle A373417.

Programs

  • PARI
    a(n) = n!/2 - (n-2)*2^(n-2); \\ Michel Marcus, Jun 05 2024

Formula

a(n) = n!/2 - (n-2)*2^(n-2) = A001710(n) - A036289(n-2).
a(n) = A000142(n) - A373340(n).
E.g.f.: (1/(1 - x) + exp(2*x)*(1 - x))/2. - Stefano Spezia, Jun 05 2024