A088303 Smallest integer value of n!/(m_1!*m_2!*...*m_k!), where 1=m_1 < m_2 < ... is the sequence of integers coprime to n.

1, 2, 3, 4, 10, 6, 420, 56, 63, 120, 1155, 792, 180180, 121080960, 5405400, 5765760, 14294280, 10585935360, 969969, 221707200, 219988969200, 853572720, 206137811880, 25700298624, 368103235500, 306261891936000, 9302704967556000

Offset

1,2

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..748

Example

a(9) = 9!/{1!*2!*4!*5!} = 63 which is not divisible by 7!.

Maple

A := proc (n) local x, i; x := n!; for i to n while x = floor(x) do if gcd(i, n) = 1 and `mod`(x, i!) = 0 then x := x/i! fi od; RETURN(x) end # Michael Lugo

Prog

(PARI) a(n)=my(N=n!); for(k=2, n, if(gcd(n, k)>1, next); if(N%k!, return(N), N/=k!)); N \\ Charles R Greathouse IV, Oct 20 2013

Crossrefs

Cf. A088302, A074199.

Sequence in context: A143178 A084190 A203070 * A193858 A054930 A329230

Adjacent sequences: A088300 A088301 A088302 * A088304 A088305 A088306

Keyword

nonn

Author

Amarnath Murthy, Sep 30 2003

Extensions

Corrected and extended by Ray Chandler, Oct 06 2003

Edited by Max Alekseyev, Mar 28 2015

Status

approved