%I #81 Sep 04 2019 10:42:27
%S 1,1,1,2,2,12,12,48,144,1440,1440,17280,17280,241920,3628800,29030400,
%T 29030400,522547200,522547200,10450944000,219469824000,4828336128000,
%U 4828336128000,115880067072000,579400335360000,15064408719360000
%N a(n) = n!/lcm{1,2,...,n} = (n-1)!/lcm{C(n-1,0), C(n-1,1), ..., C(n-1,n-1)}.
%C a(n) = a(n-1) iff n is prime. Thus a(1)=a(2)=a(3)=1 is the only triple in this sequence. - _Franz Vrabec_, Sep 10 2005
%C a(k) = a(k+1) for k in A006093. - _Lekraj Beedassy_, Aug 03 2006
%C Partial products of A048671. - _Peter Luschny_, Sep 09 2009
%H Alois P. Heinz, <a href="/A025527/b025527.txt">Table of n, a(n) for n = 1..500</a>
%H Liam Solus, <a href="https://arxiv.org/abs/1706.00480">Simplices for Numeral Systems</a>, arXiv:1706.00480 [math.CO], 2017. Mentions this sequence.
%H <a href="/index/Lc#lcm">Index entries for sequences related to lcm's</a>
%F a(n) = A000142(n)/A003418(n) = A000254(n)/A025529(n). - _Franz Vrabec_, Sep 13 2005
%F log a(n) = n log n - 2n + O(n/log^4 n). (The error term can be improved. On the Riemann Hypothesis it is O(n^k) for any k > 1/2.) - _Charles R Greathouse IV_, Oct 16 2012
%F a(n) = A205957(n), 1 <= n <= 11. - _Daniel Forgues_, Apr 22 2014
%F Conjecture: a(A006093(n)) = phi(A000142(A006093(n))) / phi(A003418(A006093(n))), where phi is the Euler totient function. - _Fred Daniel Kline_, Jun 03 2017
%e a(5) = 2 as 5!/lcm(1..5) = 120/60 = 2.
%p seq(n!/lcm($1..n), n=1..30);
%p A025527 := proc(n) option remember; `if`(n < 3, 1, ilcm(op(numtheory[divisors](n) minus{1,n}))*A025527(n-1)) end:
%p seq(A025527(i),i=1..26); # _Peter Luschny_, Mar 23 2011
%t Table[n!/Apply[LCM,Range[n]],{n,1,26}] (* _Geoffrey Critzer_, Jun 17 2013 *)
%o (Sage)
%o def A025527(n) :
%o if n < 2 : return 1
%o else :
%o D = divisors(n); D.pop()
%o return lcm(D)*A025527(n-1)
%o [A025527(i) for i in (1..26)] # _Peter Luschny_, Feb 03 2012
%o (PARI) a(n)=n!/lcm([2..n]) \\ _Charles R Greathouse IV_, Mar 06 2014
%o (GAP) List([1..30],n->Factorial(n)/Lcm([1..n])); # _Muniru A Asiru_, Apr 02 2018
%Y Cf. A000142, A002541, A006093, A003418, A048671, A025529, A205957.
%Y See also A002944, A025537.
%K nonn
%O 1,4
%A _Clark Kimberling_, Dec 11 1999