going a little further

Your last version gets 22 terms before an overflow occurs. This slight modification gets 40 terms before getting bogged down in scientific notation.

DIM n AS DOUBLE, o AS DOUBLE
DIM i AS INTEGER
CLS
n = 1
FOR i = 1 TO 45
o = n
DO WHILE n / i - INT(n / i) > 0
n = n + o
LOOP
PRINT n
NEXT