|
%I #9 Mar 18 2018 04:03:27
%S 1,6,60,420,2520,27720,360360,360360,12252240,232792560,232792560,
%T 5354228880,26771144400,80313433200,2329089562800,72201776446800,
%U 144403552893600,144403552893600,5342931457063200,5342931457063200
%N Least common multiple of n numbers starting with n.
%e a(4) = lcm(4,5,6,7) = 420.
%t Table[ Apply[LCM, Table[i, {i, n, 2n - 1}]], {n, 1, 20}]
%o (PARI) a(n) = lcm(vector(n, k, n+k-1)); \\ _Michel Marcus_, Mar 18 2018
%Y Bisection of A003418.
%K nonn
%O 1,2
%A _Amarnath Murthy_, Oct 08 2002
%E Edited and extended by _Robert G. Wilson v_, Oct 10 2002
|
