A056835 a(n) = lcm(s(1),...,s(n)) where {s(n)} = A024619 and a(0) = 1.

1, 6, 30, 60, 420, 420, 1260, 1260, 1260, 13860, 27720, 360360, 360360, 360360, 360360, 6126120, 6126120, 6126120, 116396280, 116396280, 116396280, 116396280, 116396280, 116396280, 2677114440, 5354228880, 26771144400

Offset: 0

Author

Labos Elemer, Aug 30 2000

Keywords

• nonn

Examples

			Overlaps with but is different from A003418 and A051451. E.g., 840 or 720720 are not here, but 1260 and 13860 are here, not there.
		

Links

• Robert Israel, Table of n, a(n) for n = 0..3930

Crossrefs

Cf. A024619, A003418, A051451. Range of values is A056836. All members belong to A025487.

Programs

Maple

N:= 100: # to get a(0) to a(N)
A[0]:= 1:
m:= 0:
for s from 2 while m < N do
if nops(numtheory:-factorset(s)) > 1 then
  m:= m+1;
  A[m]:= ilcm(A[m-1],s);
fi
od:
seq(A[i],i=0..N); # Robert Israel, Dec 20 2015

Mathematica

s = Select[Range@ 50, ! PrimePowerQ@ # &]; Table[LCM @@ Take[s, n], {n, Length@ s}] (* Michael De Vlieger, Dec 20 2015 *)

Extensions

Link typos corrected, cross-reference added by Matthew Vandermast, Nov 13 2010