Euler's sum of powers conjecture: Difference between revisions

Content added Content deleted
Line 4,769: Line 4,769:


<lang zxbasic>
<lang zxbasic>
2 CLS
1 CLS
5 DIM k(29): DIM q(249)
2 DIM k(29): DIM q(249)
10 FOR i=4 TO 249: LET q(i)=LN i : NEXT i
5 FOR i=4 TO 249: LET q(i)=LN i : NEXT i
11 REM enhancements for the much expanded Spectrum Next: DIM p(248,249)
6 REM enhancements for the much expanded Spectrum Next: DIM p(248,249)
12 REM FOR j=4TO 248:FOR i=15TO 249:LET p(j,i)=EXP (q(j)-q(i))*5:NEXT i:NEXT j
7 REM FOR j=4TO 248:FOR i=15TO 249:LET p(j,i)=EXP (q(j)-q(i))*5:NEXT i:NEXT j
14 PRINT "slide rule ready"
9 PRINT "slide rule ready"
15 FOR i=0 TO 9: LET k(i)=240+ i : NEXT i
15 FOR i=0 TO 9: LET k(i)=240+ i : NEXT i
17 FOR i=10 TO 29: LET k(i)=210+ i : NEXT i
17 FOR i=10 TO 29: LET k(i)=210+ i : NEXT i
Retrieved from "https://rosettacode.org/wiki/Euler%27s_sum_of_powers_conjecture"