Find prime n such that reversed n is also prime: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add BCPL) |
Not a robot (talk | contribs) (Add BASIC) |
||
Line 211: | Line 211: | ||
Reversible primes 1-500: 34 |
Reversible primes 1-500: 34 |
||
</pre> |
</pre> |
||
=={{header|BASIC}}== |
|||
<lang basic>10 DEFINT A-Z: MP=999: MX=500 |
|||
15 MP=10^FIX(LOG(MX)/LOG(10)+1) |
|||
20 DIM C(MP): C(0)=-1: C(1)=-1 |
|||
30 FOR P=2 TO SQR(MP) |
|||
40 FOR C=P+P TO MP STEP P: C(C)=-1: NEXT |
|||
50 NEXT |
|||
60 FOR N=1 TO MX: IF C(N) THEN 100 |
|||
70 R=0: V=N |
|||
80 IF V>0 THEN R=10*R+V MOD 10: V=V\10: GOTO 80 |
|||
90 IF NOT C(R) THEN PRINT N, |
|||
100 NEXT</lang> |
|||
{{out}} |
|||
<pre> 2 3 5 7 11 |
|||
13 17 31 37 71 |
|||
73 79 97 101 107 |
|||
113 131 149 151 157 |
|||
167 179 181 191 199 |
|||
311 313 337 347 353 |
|||
359 373 383 389</pre> |
|||
=={{header|BCPL}}== |
=={{header|BCPL}}== |