OFFSET
1,2
COMMENTS
Includes all factorials and Jordan-Polya numbers, since n! = Product_{i = 1..n} A003418(floor(n/i)) for positive n.
LINKS
Michel Marcus, Table of n, a(n) for n = 1..5000
EXAMPLE
720 = 2*6*60 = 12*60. Since 2, 6, 12 and 60 are all terms of A003418, 720 is a term of this sequence.
PROG
(PARI) f(n) = lcm(vector(n, i, i)); \\ A003418
mul(x, y) = x*y;
lista(nn) = {my(v = vector(nn, k, f(k)), lim = f(nn+1), ok = 0, nv); while (!ok, nv = select(x->(x<lim), setbinop(mul, v)); ok = (#v == #nv); v = nv; ); v; }
lista(30); \\ to get 5000 terms; Michel Marcus, May 09 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Matthew Vandermast, Dec 16 2014
STATUS
approved