Frobenius numbers: Difference between revisions
Add BASIC
Not a robot (talk | contribs) (Add PL/M) |
Not a robot (talk | contribs) (Add BASIC) |
||
Line 117:
Frobenius numbers 3-9999: 25
</pre>
=={{header|BASIC}}==
<lang basic>10 DEFINT A-Z
20 LM = 10000
30 M = SQR(LM)+1
40 DIM P(M)
50 FOR I=2 TO SQR(M)
60 IF P(I)=0 THEN FOR J=I+I TO M STEP I: P(J)=1: NEXT J
70 NEXT I
80 FOR I=2 TO M
90 IF P(I)=0 THEN P(C)=I: C=C+1
100 NEXT I
110 FOR N=0 TO C-2
120 PRINT P(N)*P(N+1)-P(N)-P(N+1),
130 NEXT N</lang>
{{out}}
<pre> 1 7 23 59 119
191 287 395 615 839
1079 1439 1679 1931 2391
3015 3479 3959 4619 5039
5615 6395 7215 8447 9599</pre>
=={{header|BCPL}}==
| |||