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