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.

A325617 Multinomial coefficient of the prime signature of n!.

Original entry on oeis.org

1, 1, 1, 2, 4, 20, 105, 840, 3960, 51480, 675675, 10810800, 139675536, 2793510720, 58663725120, 1799020903680, 26985313555200, 782574093100800, 25992639520848000, 857757104187984000, 30021498646579440000, 1563341744336692320000, 64179292662243158400000
Offset: 0

Views

Author

Gus Wiseman, May 12 2019

Keywords

Comments

Number of permutations of the multiset of prime factors of n!.

Examples

			The a(5) = 20 permutations of {2,2,2,3,5}:
  (22235)  (32225)  (52223)
  (22253)  (32252)  (52232)
  (22325)  (32522)  (52322)
  (22352)  (35222)  (53222)
  (22523)
  (22532)
  (23225)
  (23252)
  (23522)
  (25223)
  (25232)
  (25322)

Links

Crossrefs

Cf. A000142, A008480, A011371, A022559, A076934, A108731, A115627, A318762, A325272, A325273, A325508, A325543, A325544, A325609.

Programs

  • Mathematica
    Table[Multinomial@@Last/@FactorInteger[n!],{n,0,15}]

Formula

a(n) = A318762(A181819(n!)).

A076934 Smallest integer of the form n/k!.

Original entry on oeis.org

1, 1, 3, 2, 5, 1, 7, 4, 9, 5, 11, 2, 13, 7, 15, 8, 17, 3, 19, 10, 21, 11, 23, 1, 25, 13, 27, 14, 29, 5, 31, 16, 33, 17, 35, 6, 37, 19, 39, 20, 41, 7, 43, 22, 45, 23, 47, 2, 49, 25, 51, 26, 53, 9, 55, 28, 57, 29, 59, 10, 61, 31, 63, 32, 65, 11, 67, 34, 69, 35, 71
Offset: 1

Views

Author

Amarnath Murthy, Oct 19 2002

Keywords

Comments

Equivalently, n divided by the largest factorial divisor of n.
Also, the smallest r such that n/r is a factorial number.
Positions of 1's are the factorial numbers A000142. Is every positive integer in this sequence? - Gus Wiseman, May 15 2019
Let m = A055874(n), the largest integer such that 1,2,...,m divides n. Then a(n*m!) = n since m+1 does not divide n, showing that every integer is part of the sequence. - Etienne Dupuis, Sep 19 2020

Links

Crossrefs

Cf. A000142, A011371, A022559, A055874, A055881, A071626, A111701, A115627, A135291, A229020.
Cf. A325272, A325273, A325508, A325509, A325543, A325544.

Programs

  • Mathematica
    Table[n/Max@@Intersection[Divisors[n],Array[Factorial,n]],{n,100}] (* Gus Wiseman, May 15 2019 *)
a[n_] := Module[{k=1}, While[Divisible[n, k!], k++]; n/(k-1)!]; Array[a, 100] (* Amiram Eldar, Dec 25 2023 *)
  • PARI
    first(n) = {my(res = [1..n]); for(i = 2, oo, k = i!; if(k <= n, for(j = 1, n\k, res[j*k] = j ) , return(res) ) ) } \\ David A. Corneth, Sep 19 2020

Formula

From Amiram Eldar, Dec 25 2023: (Start)
a(n) = n/A055881(n)!.
Sum_{k=1..n} a(k) ~ c * n^2 / 2, where c = BesselI(2, 2) = 0.688948... (A229020). (End)

Extensions

More terms from David A. Corneth, Sep 19 2020

A325543 Width (number of leaves) of the rooted tree with Matula-Goebel number n!.

Original entry on oeis.org

1, 1, 1, 2, 4, 5, 7, 9, 12, 14, 16, 17, 20, 22, 25, 27, 31, 33, 36, 39, 42, 45, 47, 49, 53, 55, 58, 61, 65, 67, 70, 71, 76, 78, 81, 84, 88, 91, 95, 98, 102, 104, 108, 111, 114, 117, 120, 122, 127, 131, 134, 137, 141, 145, 149, 151, 156, 160, 163, 165, 169, 172
Offset: 0

Views

Author

Gus Wiseman, May 09 2019

Keywords

Comments

Also the multiplicity of q(1) in the factorization of n! into factors q(i) = prime(i)/i. For example, the factorization of 7! is q(1)^9 * q(2)^3 * q(3) * q(4), so a(7) = 9.

Examples

			Matula-Goebel trees of the first 9 factorial numbers are:
  0!: o
  1!: o
  2!: (o)
  3!: (o(o))
  4!: (ooo(o))
  5!: (ooo(o)((o)))
  6!: (oooo(o)(o)((o)))
  7!: (oooo(o)(o)((o))(oo))
  8!: (ooooooo(o)(o)((o))(oo))
The number of leaves is the number of o's, which are (1, 1, 1, 2, 4, 5, 7, 9, 12, ...), as required.

Crossrefs

Cf. A000081, A001222, A056239, A324922, A324923, A324924.
Matula-Goebel numbers: A007097, A061775, A109082, A109129, A196050, A317713.
Factorial numbers: A000142, A011371, A022559, A071626, A076934, A115627, A325272, A325273, A325276, A325508, A325544.

Programs

  • Mathematica
    mglv[n_]:=If[n==1,1,Total[Cases[FactorInteger[n],{p_,k_}:>mglv[PrimePi[p]]*k]]];
Table[mglv[n!],{n,0,100}]

Formula

For n > 1, a(n) = - 1 + Sum_{k = 1..n} A109129(k).

A325609 Unsorted q-signature of n!. Irregular triangle read by rows where T(n,k) is the multiplicity of q(k) in the factorization of n! into factors q(i) = prime(i)/i.

Original entry on oeis.org

1, 2, 1, 4, 1, 5, 2, 1, 7, 3, 1, 9, 3, 1, 1, 12, 3, 1, 1, 14, 5, 1, 1, 16, 6, 2, 1, 17, 7, 3, 1, 1, 20, 8, 3, 1, 1, 22, 9, 3, 1, 1, 1, 25, 9, 3, 2, 1, 1, 27, 11, 4, 2, 1, 1, 31, 11, 4, 2, 1, 1, 33, 11, 4, 3, 1, 1, 1, 36, 13, 4, 3, 1, 1, 1, 39, 13, 4, 3, 1, 1, 1, 1
Offset: 1

Views

Author

Gus Wiseman, May 12 2019

Keywords

Comments

Every positive integer has a unique q-factorization (encoded by A324924) into factors q(i) = prime(i)/i, i > 0. For example:
11 = q(1) q(2) q(3) q(5)
50 = q(1)^3 q(2)^2 q(3)^2
360 = q(1)^6 q(2)^3 q(3)
Row n is the sequence of nonzero exponents in the q-factorization of n!.
Also the number of terminal subtrees with Matula-Goebel number k of the rooted tree with Matula-Goebel number n!.

Examples

			We have 10! = q(1)^16 q(2)^6 q(3)^2 q(4), so row n = 10 is (16,6,2,1).
Triangle begins:
  {}
   1
   2  1
   4  1
   5  2  1
   7  3  1
   9  3  1  1
  12  3  1  1
  14  5  1  1
  16  6  2  1
  17  7  3  1  1
  20  8  3  1  1
  22  9  3  1  1  1
  25  9  3  2  1  1
  27 11  4  2  1  1
  31 11  4  2  1  1
  33 11  4  3  1  1  1
  36 13  4  3  1  1  1
  39 13  4  3  1  1  1  1
  42 14  5  3  1  1  1  1

Crossrefs

Row lengths are A000720.
Row sums are A325544(n) - 1.
Column k = 1 is A325543.
Cf. A056239, A067255, A112798, A118914, A124010.
Matula-Goebel numbers: A007097, A061775, A109129, A196050, A317713, A324935.
Factorial numbers: A000142, A011371, A022559, A071626, A115627, A325276.
q-factorization: A324922, A324923, A324924, A325614, A325615, A325660.

Programs

  • Mathematica
    difac[n_]:=If[n==1,{},With[{i=PrimePi[FactorInteger[n][[1,1]]]},Sort[Prepend[difac[n*i/Prime[i]],i]]]];
Table[Length/@Split[difac[n!]],{n,20}]
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.