Решение уравнения в натуральных числах (2)

REM
REM  [x^n] + [y^n] = [x^n]  n = 2.5
REM
REM   11 решений
REM
 
DIM M(1000) AS LONG
CLS
n = 2.5
 
FOR i = 1 TO 1000
   M(i) = INT(i ^ n)
NEXT i
 
FOR z = 2 TO 500
   IF z MOD 50 = 0 THEN PRINT z
   FOR y = 10 TO z - 1
   FOR x = 1 TO y
      IF M(x) + M(y) = M(z) THEN
         PRINT x; y; z
      END IF
   NEXT x
   NEXT y
NEXT z
END

DIM f(1 TO 9999) AS LONG, x AS LONG, y AS LONG, z AS LONG, n AS DOUBLE, m AS LONG, l AS LONG, r AS LONG
n = 2.5
m = INT((2 ^ 31 - 1) ^ (1 / n))
FOR x = 1 TO m
   f(x) = INT(x ^ n)
NEXT x
FOR z = 1 TO m
FOR x = 1 TO z - 1
    IF f(x) > f(z) \ 2 THEN EXIT FOR
    l = x
    r = z
    DO WHILE r > l
        y = (l + r) \ 2
        SELECT CASE f(z) - f(y) - f(x)
            CASE IS > 0: l = y + 1
            CASE IS < 0: r = y
            CASE ELSE: PRINT x; y; z: EXIT DO
        END SELECT
    LOOP
NEXT x, z

DIM f(1 TO 9999) AS LONG, x AS LONG, y AS LONG, z AS LONG, n AS DOUBLE, m AS LONG, l AS LONG, r AS LONG
n = 2.5
m = INT((2 ^ 31 - 1) ^ (1 / n))
FOR x = 1 TO m
   f(x) = INT(x ^ n)
NEXT x
FOR z = 1 TO m
FOR x = 1 TO z - 1
IF f(x) > f(z) \ 2 THEN EXIT FOR
y = INT((f(z) - f(x)) ^ (1 / n))
FOR y = y TO y + 1
    IF f(z) - f(y) - f(x) = 0 THEN PRINT x; y; z
NEXT y, x, z