A025543 Least common multiple of the first n composite numbers.
1, 4, 12, 24, 72, 360, 360, 2520, 2520, 5040, 5040, 5040, 5040, 55440, 55440, 277200, 3603600, 10810800, 10810800, 10810800, 21621600, 21621600, 367567200, 367567200, 367567200, 6983776800, 6983776800, 6983776800, 6983776800, 6983776800
Offset: 0
Keywords
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 0..1000
- Index to divisibility sequences
Programs
-
Haskell
a025543 n = a025543_list !! n a025543_list = scanl lcm 1 a002808_list -- Reinhard Zumkeller, Nov 10 2013
-
Mathematica
Table[Apply[LCM, Take[Select[Range[2, 300], !PrimeQ[#] &], n]], {n, 1, 100}] (* Clark Kimberling, Nov 12 2016 *)