OFFSET
0,2
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..1000
MATHEMATICA
Table[Apply[LCM, Take[Select[Range[2, 300], !PrimeQ[#] &], n]], {n, 1, 100}] (* Clark Kimberling, Nov 12 2016 *)
PROG
(Haskell)
a025543 n = a025543_list !! n
a025543_list = scanl lcm 1 a002808_list
-- Reinhard Zumkeller, Nov 10 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved