OFFSET
1,1
PROG
(PARI) {q=1; s=Set(q); for(n=2, 2000000, q=if(n>q, q*n, q/gcd(q, n)); if(setsearch(s, q)==0, s=setunion(s, Set(q)); if(!issquarefree(q), print1(q, ", "))))}
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Klaus Brockhaus, May 02 2004
STATUS
approved