OFFSET
1,1
LINKS
Benedict W. J. Irwin, Table of n, a(n) for n = 1..5600
PROG
(PARI) isok(n) = { my(dd = select(x->x <= sqrt(n), divisors(n))); lcm(dd) != prod(k=1, #dd, dd[k]); } \\ Michel Marcus, May 06 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Benedict W. J. Irwin, May 02 2016
STATUS
approved