Find squares n where n+1 is prime: Difference between revisions
Find squares n where n+1 is prime (view source)
Revision as of 18:54, 19 December 2021
, 2 years agoAdd BASIC
Not a robot (talk | contribs) (Add MAD) |
Not a robot (talk | contribs) (Add BASIC) |
||
Line 24:
1 4 16 36 100 196 256 400 576 676
</pre>
=={{header|BASIC}}==
<lang basic>10 DEFINT A-Z: N=1000
20 DIM C(N)
30 FOR P=2 TO SQR(N)
40 IF NOT C(P) THEN FOR C=P*P TO N STEP P: C(C)=1=1: NEXT
50 NEXT
60 FOR I=2 TO N
70 IF C(I) THEN 100
80 X=I-1: R=SQR(X)
90 IF R*R=X THEN PRINT X;
100 NEXT</lang>
{{out}}
<pre> 1 4 16 36 100 196 256 400 576 676</pre>
=={{header|BCPL}}==
|