A060776 Smaller central (median) divisor of n!.

1, 1, 2, 4, 10, 24, 70, 192, 576, 1890, 6300, 21600, 78848, 294840, 1143072, 4572288, 18849600, 79968000, 348566400, 1559376000, 7147140000, 33522128640, 160758097500, 787652812800, 3938264064000, 20080974513600, 104348440350000, 552160113120000

Offset

1,3

Comments

Factorial splitting: write n! = x*y with x <= y and x maximal; sequence gives value of x. Inequality "x < y" gives the same sequence, except that a(1) is not defined.

Between this d and its complementary divisor, the integer part of square root of n! is situated; for n=6: {24,26,30}. - Nathaniel Johnston, Jun 25 2011

Links

Max Alekseyev, Table of n, a(n) for n = 1..140 (first 59 terms from Oleg Terentyev)

Formula

a(n) = n!/A060777(n). - David Wasserman, Jun 15 2002

a(n) = A033676(A000142(n)). - Pontus von Brömssen, Jul 15 2023

Example

Divisors of 6!=720 are {1,2,3,4,5,6,...,24,30,...,360,720}. a(6)=24, the 15th divisor from 30 divisors of 720.

Mathematica

Table[ Part[ Divisors[ w! ], Floor[ DivisorSigma[ 0, n! ]/2 ] ], {w, a, b} ]

Prog

(PARI) a(n) = if (n==1, 1, my(d=divisors(n!)); d[#d\2]); \\ Michel Marcus, Sep 16 2018

Crossrefs

Cf. A027423, A055226, A000196, A000142, A000005, A060777, A033676.

Sequence in context: A363065 A200743 A061055 * A148090 A148091 A123420

Adjacent sequences: A060773 A060774 A060775 * A060777 A060778 A060779

Keyword

nonn

Author

Labos Elemer, Apr 26 2001

Extensions

More terms from David Wasserman, Jun 15 2002

a(27)-a(32) from M. F. Hasler, Sep 20 2011

Status

approved