I wanted to see what your values were hiding and I deal
with creating huge numbers and problem solving.
Here is a correction to your software and also converting it to
printing the results only 1 time regardless if QB64 cannot
understand that it is printing the same number more than once.
ALSO the number is 2088 and the max is only defined by the way
you have it setup. I enhanced it to go to 2088 which is the max
that it truly can handle. If I thought about it I can get it to keep
going till you get tired of the results.
Also I removed your Dim that define ( N and O ) so it could handle more. :)
Excuse my Type O's. I’m missing a few fingers.
If you would truly like a challenge, contact me at
[email protected]
DIM i AS INTEGER
CLS
n&& = 1
FOR i = 1 TO 2088
o&& = n&&
DO WHILE n&& / i - INT(n&& / i) > 0
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