|
|
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
|
|
|
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[m-1], s);
fi
od:
|
|
MATHEMATICA
|
s = Select[Range@ 50, ! PrimePowerQ@ # &]; Table[LCM @@ Take[s, n], {n, Length@ s}] (* Michael De Vlieger, Dec 20 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|