|
|
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
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|