This tweak will send it way farther than the 20 you intended it for.
I still do not like seeing the same number repeated and this will
help you go farther with my source code to help you with your numbers.
I hope you like this source code.
Forgive my type o's. I still missing a few fingers.
DIM i AS INTEGER
CLS
n&& = 1
FOR i = 1 TO 121
o&& = n&&
DO WHILE n&& MOD i
n&& = n&& + o&&
LOOP
n$ = MID$(STR$(n&&), 2, 55)
IF c$ = n$ THEN ELSE PRINT i; n$
c&& = INT(n&&)
c$ = MID$(STR$(c&&), 2, 55)
NEXT
|