A325617 -id:A325617 - cp's OEIS frontend

A022915 Multinomial coefficients (0, 1, ..., n)! = C(n+1,2)!/(0!1!2!...n!).

1, 1, 3, 60, 12600, 37837800, 2053230379200, 2431106898187968000, 73566121315513295589120000, 65191584694745586153436251091200000, 1906765806522767212441719098019963758016000000, 2048024348726152339387799085049745725891853852479488000000

Offset: 0

Clark Kimberling

Number of ways to put numbers 1, 2, ..., n*(n+1)/2 in a triangular array of n rows in such a way that each row is increasing. Also number of ways to choose groups of 1, 2, 3, ..., n-1 and n objects out of n*(n+1)/2 objects. - Floor van Lamoen, Jul 16 2001
a(n) is the number of ways to linearly order the multiset {1,2,2,3,3,3,...n,n,...n}. - Geoffrey Critzer, Mar 08 2009
Also the number of distinct adjacency matrices in the n-triangular honeycomb rook graph. - Eric W. Weisstein, Jul 14 2017

			From _Gus Wiseman_, Aug 12 2020: (Start)
The a(3) = 60 permutations of the prime indices of A006939(3) = 360:
  (111223)  (121123)  (131122)  (212113)  (231211)
  (111232)  (121132)  (131212)  (212131)  (232111)
  (111322)  (121213)  (131221)  (212311)  (311122)
  (112123)  (121231)  (132112)  (213112)  (311212)
  (112132)  (121312)  (132121)  (213121)  (311221)
  (112213)  (121321)  (132211)  (213211)  (312112)
  (112231)  (122113)  (211123)  (221113)  (312121)
  (112312)  (122131)  (211132)  (221131)  (312211)
  (112321)  (122311)  (211213)  (221311)  (321112)
  (113122)  (123112)  (211231)  (223111)  (321121)
  (113212)  (123121)  (211312)  (231112)  (321211)
  (113221)  (123211)  (211321)  (231121)  (322111)
(End)

Alois P. Heinz, Table of n, a(n) for n = 0..35
Eric Weisstein's World of Mathematics, Adjacency Matrix
Eric Weisstein's World of Mathematics, Multinomial Coefficient

Cf. A000178, A014068, A022919, A052295, A208437, A327803.
A190945 counts the case of anti-run permutations.
A317829 counts partitions of this multiset.
A325617 is the version for factorials instead of superprimorials.
A006939 lists superprimorials or Chernoff numbers.
A008480 counts permutations of prime indices.
A181818 gives products of superprimorials, with complement A336426.
Cf. A000142, A022559, A027423, A034841, A076954, A112798, A303279, A336417.

with(combinat):
a:= n-> multinomial(binomial(n+1, 2), $0..n):
seq(a(n), n=0..12);  # Alois P. Heinz, May 18 2013

Table[Apply[Multinomial ,Range[n]], {n, 0, 20}]  (* Geoffrey Critzer, Dec 09 2012 *)
Table[Multinomial @@ Range[n], {n, 0, 20}] (* Eric W. Weisstein, Jul 14 2017 *)
Table[Binomial[n + 1, 2]!/BarnesG[n + 2], {n, 0, 20}] (* Eric W. Weisstein, Jul 14 2017 *)
Table[Length[Permutations[Join@@Table[i,{i,n},{i}]]],{n,0,4}] (* Gus Wiseman, Aug 12 2020 *)

a(n) = binomial(n+1,2)!/prod(k=1, n, k^(n+1-k)); \\ Michel Marcus, May 02 2019

a(n) = (n*(n+1)/2)!/(0!*1!*2!*...*n!).
a(n) = a(n-1) * A014068(n). - Dan Fux (dan.fux(AT)OpenGaia.com or danfux(AT)OpenGaia.com), Apr 08 2001.
a(n) = A052295(n)/A000178(n). - Lekraj Beedassy, Feb 19 2004
a(n) = A208437(n*(n+1)/2,n). - Alois P. Heinz, Apr 08 2016
a(n) ~ A * exp(n^2/4 + n + 1/6) * n^(n^2/2 + 7/12) / (2^((n+1)^2/2) * Pi^(n/2)), where A is the Glaisher-Kinkelin constant A074962. - Vaclav Kotesovec, May 02 2019
a(n) = A327803(n*(n+1)/2,n). - Alois P. Heinz, Sep 25 2019
a(n) = A008480(A006939(n)). - Gus Wiseman, Aug 12 2020

More terms from Larry Reeves (larryr(AT)acm.org), Apr 11 2001
More terms from Michel ten Voorde, Apr 12 2001
Better definition from L. Edson Jeffery, May 18 2013

A336416 Number of perfect-power divisors of n!.

Original entry on oeis.org

1, 1, 1, 1, 3, 3, 7, 7, 11, 18, 36, 36, 47, 47, 84, 122, 166, 166, 221, 221, 346, 416, 717, 717, 1001, 1360, 2513, 2942, 4652, 4652, 5675, 5675, 6507, 6980, 13892, 17212, 20408, 20408, 39869, 45329, 51018, 51018, 68758, 68758, 105573, 138617, 284718, 284718, 338126, 421126

Offset: 0

Gus Wiseman, Jul 22 2020

nonn

A number is a perfect power iff it is 1 or its prime exponents (signature) are not relatively prime.

			The a(1) = 0 through a(9) = 18 divisors:
       1: 1
       2: 1
       6: 1
      24: 1,4,8
     120: 1,4,8
     720: 1,4,8,9,16,36,144
    5040: 1,4,8,9,16,36,144
   40320: 1,4,8,9,16,32,36,64,128,144,576
  362880: 1,4,8,9,16,27,32,36,64,81,128,144,216,324,576,1296,1728,5184

David A. Corneth, Table of n, a(n) for n = 0..9999

The maximum among these divisors is A090630, with quotient A251753.
The version for distinct prime exponents is A336414.
The uniform version is A336415.
Replacing factorials with Chernoff numbers (A006939) gives A336417.
Prime powers are A000961.
Perfect powers are A001597, with complement A007916.
Prime power divisors are counted by A022559.
Cf. A000005, A001221, A001222, A011371, A032741, A118914, A124010, A130091, A327527.
Factorial numbers: A000142, A007489, A027423, A048656, A071626, A181796, A325272, A325273, A325617.

perpouQ[n_]:=Or[n==1,GCD@@FactorInteger[n][[All,2]]>1];
Table[Length[Select[Divisors[n!],perpouQ]],{n,0,15}]

a(n) = sumdiv(n!, d, (d==1) || ispower(d)); \\ Michel Marcus, Aug 19 2020

addhelp(val, "exponent of prime p in n!")
val(n, p) = my(r=0); while(n, r+=n\=p);r
a(n) = {if(n<=3, return(1)); my(pr = primes(primepi(n\2)), v = vector(#pr, i, val(n, pr[i])), res = 1, cv); for(i = 2, v[1], if(issquarefree(i), cv = v\i; res-=(prod(i = 1, #cv, cv[i]+1)-1)*(-1)^omega(i) ) ); res } \\ David A. Corneth, Aug 19 2020

a(p) = a(p-1) for prime p. - David A. Corneth, Aug 19 2020

a(26)-a(34) from Jinyuan Wang, Aug 19 2020

a(35)-a(49) from David A. Corneth, Aug 19 2020

A336414 Number of divisors of n! with distinct prime multiplicities.

Original entry on oeis.org

1, 1, 2, 3, 7, 10, 20, 27, 48, 86, 147, 195, 311, 390, 595, 1031, 1459, 1791, 2637, 3134, 4747, 7312, 10766, 12633, 16785, 26377, 36142, 48931, 71144, 82591, 112308, 128023, 155523, 231049, 304326, 459203, 568095, 642446, 812245, 1137063, 1441067, 1612998, 2193307, 2429362

Offset: 0

Gus Wiseman, Jul 22 2020

nonn

A number has distinct prime multiplicities iff its prime signature is strict.

			The first and second columns below are the a(6) = 20 counted divisors of 6! together with their prime signatures. The third column shows the A000005(6!) - a(6) = 10 remaining divisors.
      1: ()      20: (2,1)    |    6: (1,1)
      2: (1)     24: (3,1)    |   10: (1,1)
      3: (1)     40: (3,1)    |   15: (1,1)
      4: (2)     45: (2,1)    |   30: (1,1,1)
      5: (1)     48: (4,1)    |   36: (2,2)
      8: (3)     72: (3,2)    |   60: (2,1,1)
      9: (2)     80: (4,1)    |   90: (1,2,1)
     12: (2,1)  144: (4,2)    |  120: (3,1,1)
     16: (4)    360: (3,2,1)  |  180: (2,2,1)
     18: (1,2)  720: (4,2,1)  |  240: (4,1,1)

Chai Wah Wu, Table of n, a(n) for n = 0..6245 (n = 0..94 from David A. Corneth)

Perfect-powers are A001597, with complement A007916.
Numbers with distinct prime multiplicities are A130091.
Divisors with distinct prime multiplicities are counted by A181796.
The maximum divisor with distinct prime multiplicities is A327498.
Divisors of n! with equal prime multiplicities are counted by A336415.
Cf. A000005, A098859, A118914, A124010, A327527, A336424, A336500, A336568.
Factorial numbers: A000142, A007489, A022559, A027423, A048656, A048742, A071626, A325272, A325273, A325617, A336416.

Table[Length[Select[Divisors[n!],UnsameQ@@Last/@FactorInteger[#]&]],{n,0,15}]

a(n) = sumdiv(n!, d, my(ex=factor(d)[,2]); #vecsort(ex,,8) == #ex); \\ Michel Marcus, Jul 24 2020

a(n) = A181796(n!).

a(21)-a(41) from Alois P. Heinz, Jul 24 2020

A337105 Number of strict chains of divisors from n! to 1.

Original entry on oeis.org

1, 1, 1, 3, 20, 132, 1888, 20128, 584000, 17102016, 553895936, 11616690176, 743337949184, 19467186157568, 999551845713920, 66437400489711616, 10253161206302064640, 388089999627661557760, 53727789519052432998400, 2325767421950553303285760, 365546030278816140131041280

Offset: 0

Gus Wiseman, Aug 17 2020

nonn

			The a(4) = 20 chains:
  24/1  24/2/1   24/4/2/1   24/8/4/2/1
        24/3/1   24/6/2/1   24/12/4/2/1
        24/4/1   24/6/3/1   24/12/6/2/1
        24/6/1   24/8/2/1   24/12/6/3/1
        24/8/1   24/8/4/1
        24/12/1  24/12/2/1
                 24/12/3/1
                 24/12/4/1
                 24/12/6/1

Andrew Howroyd, Table of n, a(n) for n = 0..200

A325617 is the maximal case.
A336941 is the version for superprimorials.
A337104 counts the case with distinct prime multiplicities.
A337071 is the case not necessarily ending with 1.
A000005 counts divisors.
A000142 lists factorial numbers.
A001055 counts factorizations.
A027423 counts divisors of factorial numbers.
A067824 counts chains of divisors starting with n.
A074206 counts chains of divisors from n to 1.
A076716 counts factorizations of factorial numbers.
A253249 counts chains of divisors.
A336423 counts chains using A130091, with maximal case A336569.
A336942 counts chains using A130091 from A006939(n) to 1.
Cf. A001013, A001055, A022559, A124010, A167865, A337070, A337074.

b:= proc(n) option remember; 1 +
      add(b(d), d=numtheory[divisors](n) minus {n})
    end:
a:= n-> ceil(b(n!)/2):
seq(a(n), n=0..14);  # Alois P. Heinz, Aug 23 2020

chnsc[n_]:=Prepend[Join@@Table[Prepend[#,n]&/@chnsc[d],{d,DeleteCases[Divisors[n],1|n]}],{n}];
Table[Length[chnsc[n!]],{n,0,5}]

a(n) = A337071(n)/2 for n > 1.

a(n) = A074206(n!).

a(19)-a(20) from Alois P. Heinz, Aug 22 2020

A336415 Number of divisors of n! with equal prime multiplicities.

Original entry on oeis.org

1, 1, 2, 4, 6, 10, 13, 21, 24, 28, 33, 49, 53, 85, 94, 100, 104, 168, 173, 301, 307, 317, 334, 590, 595, 603, 636, 642, 652, 1164, 1171, 2195, 2200, 2218, 2283, 2295, 2301, 4349, 4478, 4512, 4519, 8615, 8626, 16818, 16836, 16844, 17101, 33485, 33491, 33507, 33516, 33582

Offset: 0

Gus Wiseman, Jul 22 2020

nonn

A number k has "equal prime multiplicities" (or is "uniform") iff its prime signature is constant, meaning that k is a power of a squarefree number.

			The a(n) uniform divisors of n for n = 1, 2, 6, 8, 30, 36 are the columns:
  1  2  6  8  30  36
     1  3  6  15  30
        2  4  10  16
        1  3   8  15
           2   6  10
           1   5   9
               4   8
               3   6
               2   5
               1   4
                   3
                   2
                   1
In 20!, the multiplicity of the third prime (5) is 4 but the multiplicity of the fourth prime (7) is 2. Hence there are 2^3 - 1 = 3 divisors with all exponents 3 (we subtract |{1}| = 1 from that count as 1 has no exponent 3). - _David A. Corneth_, Jul 27 2020

David A. Corneth, Table of n, a(n) for n = 0..9999
Jon Maiga, Computer-generated formulas for A336415, Sequence Machine.

The version for distinct prime multiplicities is A336414.
The version for nonprime perfect powers is A336416.
Uniform partitions are counted by A047966.
Uniform numbers are A072774, with nonprime terms A182853.
Numbers with distinct prime multiplicities are A130091.
Divisors with distinct prime multiplicities are counted by A181796.
Maximum divisor with distinct prime multiplicities is A327498.
Uniform divisors are counted by A327527.
Maximum uniform divisor is A336618.
1st differences are given by A048675.
Cf. A000005, A000961, A001222, A001597, A007916, A112798, A124010, A327499.
Factorial numbers: A000142, A007489, A022559, A027423, A048656, A071626, A108731, A325272, A325273, A325617.

Table[Length[Select[Divisors[n!],SameQ@@Last/@FactorInteger[#]&]],{n,0,15}]

a(n) = sumdiv(n!, d, my(ex=factor(d)[,2]); (#ex==0) || (vecmin(ex) == vecmax(ex))); \\ Michel Marcus, Jul 24 2020

a(n) = {if(n<2, return(1)); my(f = primes(primepi(n)), res = 1, t = #f); f = vector(#f, i, val(n, f[i])); for(i = 1, f[1], while(f[t] < i, t--; ); res+=(1<David A. Corneth, Jul 27 2020

a(n) = A327527(n!).

Terms a(31) and onwards from David A. Corneth, Jul 27 2020

A335407 Number of anti-run permutations of the prime indices of n!.

Original entry on oeis.org

1, 1, 1, 2, 0, 2, 3, 54, 0, 30, 105, 6090, 1512, 133056, 816480, 127209600, 0, 10090080, 562161600, 69864795000, 49989139200, 29593652088000, 382147120555200, 41810689605484800, 4359985823793600, 3025062801079038720, 49052072750637116160, 25835971971637227375360

Offset: 0

Gus Wiseman, Jul 01 2020

nonn

An anti-run is a sequence with no adjacent equal parts.
A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.
Conjecture: Only vanishes at n = 4 and n = 8.
a(16) = 0. Proof: 16! = 2^15 * m where bigomega(m) = A001222(m) = 13. We can't separate 15 1's with 13 other numbers. - David A. Corneth, Jul 04 2020

			The a(0) = 1 through a(6) = 3 anti-run permutations:
  ()  ()  (1)  (1,2)  .  (1,2,1,3,1)  (1,2,1,2,1,3,1)
               (2,1)     (1,3,1,2,1)  (1,2,1,3,1,2,1)
                                      (1,3,1,2,1,2,1)

Andrew Howroyd, Table of n, a(n) for n = 0..200

The version for Mersenne numbers is A335432.
Anti-run compositions are A003242.
Anti-run patterns are counted by A005649.
Permutations of prime indices are A008480.
Anti-runs are ranked by A333489.
Separable partitions are ranked by A335433.
Inseparable partitions are ranked by A335448.
Anti-run permutations of prime indices are A335452.
Strict permutations of prime indices are A335489.
Cf. A056239, A106351, A112798, A114938, A278990, A292884, A325535, A335125.
Factorial numbers: A000142, A001222, A002982, A007489, A022559, A027423, A054991, A108731, A181819, A181821, A325272, A325273, A325617.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Length[Select[Permutations[primeMS[n!]],!MatchQ[#,{_,x_,x_,_}]&]],{n,0,10}]

\\ See A335452 for count.
a(n)={count(factor(n!)[,2])} \\ Andrew Howroyd, Feb 03 2021

a(n) = A335452(A000142(n)). - Andrew Howroyd, Feb 03 2021

Terms a(14) and beyond from Andrew Howroyd, Feb 03 2021

A337071 Number of strict chains of divisors starting with n!.

Original entry on oeis.org

1, 1, 2, 6, 40, 264, 3776, 40256, 1168000, 34204032, 1107791872, 23233380352, 1486675898368, 38934372315136, 1999103691427840, 132874800979423232, 20506322412604129280, 776179999255323115520, 107455579038104865996800, 4651534843901106606571520, 731092060557632280262082560

Offset: 0

Gus Wiseman, Aug 16 2020

nonn

			The a(1) = 1 through a(3) = 6 chains:
  1  2    6
     2/1  6/1
          6/2
          6/3
          6/2/1
          6/3/1
The a(4) = 40 chains:
  24  24/1   24/2/1   24/4/2/1   24/8/4/2/1
      24/2   24/3/1   24/6/2/1   24/12/4/2/1
      24/3   24/4/1   24/6/3/1   24/12/6/2/1
      24/4   24/4/2   24/8/2/1   24/12/6/3/1
      24/6   24/6/1   24/8/4/1
      24/8   24/6/2   24/8/4/2
      24/12  24/6/3   24/12/2/1
             24/8/1   24/12/3/1
             24/8/2   24/12/4/1
             24/8/4   24/12/4/2
             24/12/1  24/12/6/1
             24/12/2  24/12/6/2
             24/12/3  24/12/6/3
             24/12/4
             24/12/6

A325617 is the maximal case.
A337070 is the version for superprimorials.
A337074 counts the case with distinct prime multiplicities.
A337105 is the case ending with one.
A000005 counts divisors.
A000142 lists factorial numbers.
A027423 counts divisors of factorial numbers.
A067824 counts chains of divisors starting with n.
A074206 counts chains of divisors from n to 1.
A076716 counts factorizations of factorial numbers.
A253249 counts chains of divisors.
Cf. A001013, A001055, A002033, A022559, A124010, A167865, A336941, A336942.

chnsc[n_]:=Prepend[Join@@Table[Prepend[#,n]&/@chnsc[d],{d,Most[Divisors[n]]}],{n}];
Table[Length[chnsc[n!]],{n,0,5}]

a(n) = 2*A337105(n) for n > 1.

a(n) = A067824(n!).

a(19)-a(20) from Alois P. Heinz, Aug 23 2020

A325616 Triangle read by rows where T(n,k) is the number of length-k integer partitions of n into factorial numbers.

Original entry on oeis.org

1, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 2, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 2, 1, 1, 1, 1, 1, 0, 0, 1, 0, 1, 1, 2, 2, 1

Offset: 0

Gus Wiseman, May 12 2019

			Triangle begins:
  1
  0 1
  0 1 1
  0 0 1 1
  0 0 1 1 1
  0 0 0 1 1 1
  0 1 0 1 1 1 1
  0 0 1 0 1 1 1 1
  0 0 1 1 1 1 1 1 1
  0 0 0 1 1 1 1 1 1 1
  0 0 0 1 1 2 1 1 1 1 1
  0 0 0 0 1 1 2 1 1 1 1 1
  0 0 1 0 1 1 2 2 1 1 1 1 1
  0 0 0 1 0 1 1 2 2 1 1 1 1 1
  0 0 0 1 1 1 1 2 2 2 1 1 1 1 1
  0 0 0 0 1 1 1 1 2 2 2 1 1 1 1 1
  0 0 0 0 1 1 2 1 2 2 2 2 1 1 1 1 1
  0 0 0 0 0 1 1 2 1 2 2 2 2 1 1 1 1 1
  0 0 0 1 0 1 1 2 2 2 2 2 2 2 1 1 1 1 1
  0 0 0 0 1 0 1 1 2 2 2 2 2 2 2 1 1 1 1 1
  0 0 0 0 1 1 1 1 2 2 3 2 2 2 2 2 1 1 1 1 1
Row n = 12 counts the following partitions:
  (66)
  (6222)
  (62211)
  (222222) (621111)
  (2222211) (6111111)
  (22221111)
  (222111111)
  (2211111111)
  (21111111111)
  (111111111111)

Row sums are A064986.
Cf. A008284.
Factorial numbers: A000142, A007489, A076934, A108731, A115944, A227157, A284605, A322583, A325509, A325617.
Reciprocal factorial sum: A325618, A325619, A325620, A325622.

Table[SeriesCoefficient[Product[1/(1-y*x^(i!)),{i,1,n}],{x,0,n},{y,0,k}],{n,0,15},{k,0,n}]

T(n,k) is the coefficient of x^n * y^k in the expansion of Product_{i > 0} 1/(1 - y * x^(i!)).

A337074 Number of strict chains of divisors in A130091 (numbers with distinct prime multiplicities), starting with n!.

Original entry on oeis.org

1, 1, 2, 0, 28, 0, 768, 0, 0, 0, 42155360, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

Offset: 0

Gus Wiseman, Aug 16 2020

nonn

Support appears to be {0, 1, 2, 4, 6, 10}.

			The a(4) = 28 chains:
  24  24/1   24/2/1   24/4/2/1   24/8/4/2/1
      24/2   24/3/1   24/8/2/1   24/12/4/2/1
      24/3   24/4/1   24/8/4/1
      24/4   24/4/2   24/8/4/2
      24/8   24/8/1   24/12/2/1
      24/12  24/8/2   24/12/3/1
             24/8/4   24/12/4/1
             24/12/1  24/12/4/2
             24/12/2
             24/12/3
             24/12/4

A336867 is the complement of the support.
A336868 is the characteristic function (image under A057427).
A336942 is half the version for superprimorials (n > 1).
A337071 does not require distinct prime multiplicities.
A337104 is the case of chains ending with 1.
A000005 counts divisors.
A000142 lists factorial numbers.
A027423 counts divisors of factorial numbers.
A067824 counts chains of divisors starting with n.
A074206 counts chains of divisors from n to 1.
A076716 counts factorizations of factorial numbers.
A130091 lists numbers with distinct prime multiplicities.
A181796 counts divisors with distinct prime multiplicities.
A253249 counts chains of divisors.
A327498 gives the maximum divisor with distinct prime multiplicities.
A336414 counts divisors of n! with distinct prime multiplicities.
A336415 counts divisors of n! with equal prime multiplicities.
A336423 counts chains using A130091, with maximal case A336569.
A336571 counts chains of divisors 1 < d < n using A130091.
Cf. A000110, A001055, A002033, A007489, A022559, A048656, A071626, A098859, A124010, A167865, A325617, A336416, A336424.

chnsc[n_]:=If[!UnsameQ@@Last/@FactorInteger[n],{},If[n==1,{{1}},Prepend[Join@@Table[Prepend[#,n]&/@chnsc[d],{d,Most[Divisors[n]]}],{n}]]];
Table[Length[chnsc[n!]],{n,0,6}]

a(n) = 2*A337104(n) = 2*A336423(n!) for n > 1.

A337107 Irregular triangle read by rows where T(n,k) is the number of strict length-k chains of divisors from n! to 1.

Original entry on oeis.org

1, 0, 1, 0, 1, 2, 0, 1, 6, 9, 4, 0, 1, 14, 45, 52, 20, 0, 1, 28, 183, 496, 655, 420, 105, 0, 1, 58, 633, 2716, 5755, 6450, 3675, 840, 0, 1, 94, 1659, 11996, 46235, 106806, 155869, 145384, 84276, 27720, 3960

Offset: 1

Gus Wiseman, Aug 23 2020

Row n > 1 appears to be row n! of A334996.

			Triangle begins:
    1
    0    1
    0    1    2
    0    1    6    9    4
    0    1   14   45   52   20
    0    1   28  183  496  655  420  105
    0    1   58  633 2716 5755 6450 3675  840
Row n = 4 counts the following chains:
  24/1  24/2/1   24/4/2/1   24/8/4/2/1
        24/3/1   24/6/2/1   24/12/4/2/1
        24/4/1   24/6/3/1   24/12/6/2/1
        24/6/1   24/8/2/1   24/12/6/3/1
        24/8/1   24/8/4/1
        24/12/1  24/12/2/1
                 24/12/3/1
                 24/12/4/1
                 24/12/6/1

A097805 is the restriction to powers of 2.
A325617 is the maximal case.
A337105 gives row sums.
A337106 is column k = 3.
A000005 counts divisors.
A000142 lists factorial numbers.
A001055 counts factorizations.
A074206 counts chains of divisors from n to 1.
A027423 counts divisors of factorial numbers.
A067824 counts chains of divisors starting with n.
A076716 counts factorizations of factorial numbers.
A253249 counts chains of divisors.
A337071 counts chains starting with n!.
Cf. A022559, A124010, A167865, A251683, A337070, A337074.

b:= proc(n) option remember; expand(x*(`if`(n=1, 1, 0) +
      add(b(d), d=numtheory[divisors](n) minus {n})))
    end:
T:= n-> (p-> seq(coeff(p, x, i), i=1..degree(p)))(b(n!)):
seq(T(n), n=1..10);  # Alois P. Heinz, Aug 23 2020

nv=5;
chnsc[n_]:=Select[Prepend[Join@@Table[Prepend[#,n]&/@chnsc[d],{d,DeleteCases[Divisors[n],n]}],{n}],MemberQ[#,1]&];
Table[Length[Select[chnsc[n!],Length[#]==k&]],{n,nv},{k,1+PrimeOmega[n!]}]

cp's OEIS Frontend

A022915 Multinomial coefficients (0, 1, ..., n)! = C(n+1,2)!/(0!*1!*2!*...*n!).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

Extensions

A336416 Number of perfect-power divisors of n!.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

PARI

Formula

Extensions

A336414 Number of divisors of n! with distinct prime multiplicities.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A337105 Number of strict chains of divisors from n! to 1.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

Extensions

A336415 Number of divisors of n! with equal prime multiplicities.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

PARI

Formula

Extensions

A335407 Number of anti-run permutations of the prime indices of n!.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A022915 Multinomial coefficients (0, 1, ..., n)! = C(n+1,2)!/(0!1!2!...n!).