

A056835


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


2



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,2


LINKS

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


EXAMPLE

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.


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[m1], 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 *)


CROSSREFS

Cf. A024619, A003418, A051451. Range of values is A056836. All members belong to A025487.
Sequence in context: A181827 A263573 A145010 * A056836 A277521 A163640
Adjacent sequences: A056832 A056833 A056834 * A056836 A056837 A056838


KEYWORD

nonn


AUTHOR

Labos Elemer, Aug 30 2000


EXTENSIONS

Link typos corrected, crossreference added by Matthew Vandermast, Nov 13 2010


STATUS

approved



