Find prime n such that reversed n is also prime: Difference between revisions
Find prime n such that reversed n is also prime (view source)
Revision as of 22:55, 20 December 2021
, 2 years agoAdd BASIC
Not a robot (talk | contribs) (Add BCPL) |
Not a robot (talk | contribs) (Add BASIC) |
||
Line 211:
Reversible primes 1-500: 34
</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}}==
| |||