新年快乐！！！

ysr

2026=75^2+5^5-82^2

ysr

2026=91^2+7^6-352^2

ysr

代码如下：

Private Sub Command1_Click()
Dim a, b
a1 = Val(Text1)
Do While a1 <= 100
a = a1 * a1 - 2026
Print a
s = Int(a ^ 0.5) + 1
Do While s <= 5000000
b = Val(s ^ 2 - a)
b1 = b ^ (1 / 6)
If InStr(b1, ".") = 0 Then
s1 = s1 & a & "+" & b1 & "^6=" & s & "^2" & " a1=" & a1 & vbCrLf
Else
s1 = s1
End If
s = s + 1
Loop
a1 = a1 + 1
Loop

If InStr(s1, "^") = 0 Then
Text2 = "wu  jie"
Else
Text2 = s1
End If

End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""

End Sub

ysr

2026=80^2+3^7-81^2

ysr

2026=117^2+1^8-108^2
2026=205^2+1^8-200^2
2026=339^2+1^8-336^2
2026=451^2+3^8-456^2
2026=1013^2+1^8-1012^2
2026=1243^2+13^8-28588^2
2026=1403^2+11^8-14708^2

ysr

代码如下：

Private Sub Command1_Click()
Dim a, b
a1 = Val(Text1)
Do While a1 <= 250
a = a1 * a1 - 2026
Print a
s = Int(a ^ 0.5) + 1
Do While s <= 5000000
b = Val(s ^ 2 - a)
b1 = b ^ (1 / 8)
If InStr(b1, ".") = 0 Then
s1 = s1 & "2026=" & a1 & "^2" & "+" & b1 & "^8-" & s & "^2" & vbCrLf
Else
s1 = s1
End If
s = s + 1
Loop
a1 = a1 + 1
Loop

If InStr(s1, "^") = 0 Then
Text2 = "wu  jie"
Else
Text2 = s1
End If

End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""

End Sub

ysr

2026=75^2+1^9-60^2
2026=117^2+1^9-108^2
2026=205^2+1^9-200^2
2026=339^2+1^9-336^2

ysr

2026=2238^2+7^9-6735^2
2026=5250^2+7^9-8241^2
2026=12710^2+7^9-14209^2
2026=161^2+3^10-288^2

普通电脑的程序要解决此问题，用穷举法，到猴年马月才能算到2026，也许用巨型计算机的分布程序会快一些，当然，有了量子计算机就简单了！！

代码如下：
Private Sub Command1_Click()
Dim a, b
a1 = Val(Text1)
Do While a1 <= 4300
a = a1 * a1 - 2026
Print a
s = Int(a ^ 0.5) + 1
Do While s <= 5000000
b = Val(s ^ 2 - a)
b1 = b ^ (1 / 9)
If InStr(b1, ".") = 0 And b1 <> 3 And b1 <> 7 Then
s1 = s1 & "2026=" & a1 & "^2" & "+" & b1 & "^9-" & s & "^2" & vbCrLf
Else
s1 = s1
End If
s = s + 1
Loop
a1 = a1 + 1
Loop

If InStr(s1, "^") = 0 Then
Text2 = "wu  jie"
Else
Text2 = s1
End If

End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""

End Sub

王守恩

2026——怎么填？！！
\(00=1^3-1^3-0^3-0^3+0^3\)
\(01=1^3-1^3-0^3-0^3+1^3\)
\(02=0^3-2^3+1^3+1^3+2^3\)
\(03=3^3-5^3+4^3+4^3-3^3\)
\(04=3^3+1^3-2^3-2^3-2^3\)
\(05=2^3+0^3-1^3-1^3-1^3\)
\(06=2^3+0^3-1^3-1^3+0^3\)
\(07=2^3+0^3-1^3-1^3+1^3\)
\(08=1^3-1^3-0^3-0^3+2^3\)
\(09=3^3-4^3+3^3+3^3-2^3\)
\(10=4^3+2^3-3^3-3^3-2^3\)
\(11=3^3+1^3-2^3-2^3-1^3\)
\(12=3^3+1^3-2^3-2^3+0^3\)
\(13=3^3+1^3-2^3-2^3+1^3\)
\(14=2^3+0^3-1^3-1^3+2^3\)
\(15=3^3-3^3+2^3+2^3-1^3\)
\(16=5^3+3^3-4^3-4^3-2^3\)
\(17=4^3+2^3-3^3-3^3-1^3\)
\(18=4^3+2^3-3^3-3^3-0^3\)
\(19=4^3+2^3-3^3-3^3+1^3\)
\(20=3^3+1^3-2^3-2^3+2^3\)
\(21=0^3-2^3+1^3+1^3+3^3\)
\(22=6^3+4^3-5^3-5^3-2^3\)
\(23=5^3+3^3-4^3-4^3-1^3\)
\(24=5^3+3^3-4^3-4^3-0^3\)
\(25=5^3+3^3-4^3-4^3+1^3\)
\(26=4^3+2^3-3^3-3^3+2^3\)
\(27=1^3-1^3-0^3-0^3+3^3\)
\(28=7^3+5^3-6^3-6^3-2^3\)
\(29=6^3+4^3-5^3-5^3-1^3\)
\(30=6^3+4^3-5^3-5^3-0^3\)
\(31=6^3+4^3-5^3-5^3+1^3\)
\(32=5^3+3^3-4^3-4^3+2^3\)
\(33=2^3+0^3-1^3-1^3+3^3\)
\(34=8^3+6^3-7^3-7^3-2^3\)
\(35=7^3+5^3-6^3-6^3-1^3\)
\(36=7^3+5^3-6^3-6^3-0^3\)
\(37=7^3+5^3-6^3-6^3+1^3\)
\(38=6^3+4^3-5^3-5^3+2^3\)
\(39=3^3+1^3-2^3-2^3+3^3\)
\(40=9^3+7^3-8^3-8^3-2^3\)
\(41=8^3+6^3-7^3-7^3-1^3\)
\(42=8^3+6^3-7^3-7^3-0^3\)
\(43=8^3+6^3-7^3-7^3+1^3\)
\(44=7^3+5^3-6^3-6^3+2^3\)
\(45=4^3+2^3-3^3-3^3+3^3\)

王守恩

\(n=\bigg(\big\lfloor\frac{n}{6}\big\rfloor + 1 - x\bigg)^3 +\bigg (\big\lfloor\frac{n}{6}\big\rfloor - 1 -  x\bigg)^3+ \bigg(-\big\lfloor\frac{n}{6}\big\rfloor + x\bigg)^3 + \bigg(-\big\lfloor\frac{n}{6}\big\rfloor + x\bigg)^3 + \bigg(Mod[n, 6] - 6\big\lfloor\frac{Mod[n, 6]}{4}\big\rfloor\bigg)^3\)

\(x=\big\lfloor\frac{Mod[n, 6]}{2}\big\rfloor + 3\big\lfloor\frac{Mod[n, 6]}{3}\big\rfloor - 7\big\lfloor\frac{Mod[n, 6]}{4}\big\rfloor +\big \lfloor\frac{Mod[n, 6]}{5}\big\rfloor\)

只要一串数就够了——{-1, -1, -2, -5, 1, 0, 0, 0, -1, -4, 2, 1, 1, 1, 0, -3, 3, 2, 2, 2, 1, -2, 4, 3, 3, 3, 2, -1, 5, 4, 4, 4, 3, 0, 6, 5, 5, 5, 4, 1, 7, 6, 6, 6, 5, 2, 8, 7, 7, 7, 6, 3, 9, 8, 8, 8, 7, 4, 10, 9, 9, 9, 8, 5, 11, 10, 10, 10, 9, 6, 12, 11, 11, 11, 10, 7, 13}

LinearRecurrence[{1, 0, 0, 0, 0, 1, -1}, {-1, -1, -2, -5, 1, 0, 0}, 90]