|
%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_
|
