Anonymous user
Euler's sum of powers conjecture: Difference between revisions
m
→{{header|ZX Spectrum Basic}}: moved misplaced line
(→{{header|ZX Spectrum Basic}}: completed "slide rule" fix) |
m (→{{header|ZX Spectrum Basic}}: moved misplaced line) |
||
Line 3,952:
4 FOR i=1 TO 249: q(i)=5*LN i: p(i)=q(i)/2: NEXT i
20 FOR w=7 TO 245 STEP 7: FOR x=5 TO 245 STEP 5: FOR y=3 TO 246 STEP 3: FOR z=2 TO 248 STEP 2
30 LET sum=EXP(q(w)-p(m))+ EXP(q(x)-p(m)) + EXP(q(y)-p(m)) + EXP(q(z)-p(m))
35 LET lnsum=LN sum
▲45 FOR m=8 TO 249
50 IF lnsum=p(m) THEN PRINT w;"^5+";x;"^5+";y;"^5+";z;"^5=";m;"^5": STOP
55 IF lnsum>p(m) THEN NEXT m
| |||