login
Least common multiple of the first n composite numbers.
3

%I #17 Nov 15 2016 14:33:32

%S 1,4,12,24,72,360,360,2520,2520,5040,5040,5040,5040,55440,55440,

%T 277200,3603600,10810800,10810800,10810800,21621600,21621600,

%U 367567200,367567200,367567200,6983776800,6983776800,6983776800,6983776800,6983776800

%N Least common multiple of the first n composite numbers.

%H Reinhard Zumkeller, <a href="/A025543/b025543.txt">Table of n, a(n) for n = 0..1000</a>

%H <a href="/index/Di#divseq">Index to divisibility sequences</a>

%t Table[Apply[LCM, Take[Select[Range[2, 300], !PrimeQ[#] &], n]], {n, 1, 100}] (* _Clark Kimberling_, Nov 12 2016 *)

%o (Haskell)

%o a025543 n = a025543_list !! n

%o a025543_list = scanl lcm 1 a002808_list

%o -- _Reinhard Zumkeller_, Nov 10 2013

%Y Differs from A003418 and A051451

%Y Cf. A002808, A003418, A051451, A064354.

%Y Cf. A036691.

%K nonn

%O 0,2

%A _Clark Kimberling_