DefDbl A-Z
Dim crlf$
Private Sub Form_Load()
Form1.Visible = True
Text1.Text = ""
crlf = Chr$(13) + Chr$(10)
For tot = 2 To 99999
For a = 1 To tot / 2
DoEvents
b = tot - a
lhs = a * a * a + b * b * b
c = Int((lhs / 31) ^ (1 / 3) + 0.5)
If c * c * c * 31 = lhs Then
Text1.Text = Text1.Text & a & Str(b) & Str(c) & " " & lhs & Str(a + b + c) & crlf
End If
Next
Next
Text1.Text = Text1.Text & crlf & " done"
End Sub
finds no solution for a+b under 100,000, even without c.
Edited on April 22, 2016, 11:13 am
|
|
Posted by Charlie
on 2016-04-22 11:11:58 |
computer exploration
