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 23:02, 20 December 2021
, 2 years agoAdd MAD
Not a robot (talk | contribs) (Add BASIC) |
Not a robot (talk | contribs) (Add MAD) |
||
Line 723:
{{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|MAD}}==
<lang MAD> NORMAL MODE IS INTEGER
BOOLEAN PRIME
DIMENSION PRIME(1000)
VECTOR VALUES FMT = $I3*$
PRIME(0)=0B
PRIME(1)=0B
THROUGH INIT, FOR P=2, 1, P.GE.1000
INIT PRIME(P)=1B
THROUGH SIEVE, FOR P=2, 1, P.GE.32
THROUGH SIEVE, FOR C=P*P, P, C.GE.1000
SIEVE PRIME(C)=0B
THROUGH TEST, FOR N=2, 1, N.GE.500
WHENEVER .NOT. PRIME(N), TRANSFER TO TEST
NN=N
R=0
RVRSE WHENEVER NN.G.0
NXT=NN/10
R=R*10+NN-NXT*10
NN=NXT
TRANSFER TO RVRSE
END OF CONDITIONAL
WHENEVER .NOT. PRIME(R), TRANSFER TO TEST
PRINT FORMAT FMT,N
TEST CONTINUE
END OF PROGRAM</lang>
{{out}}
<pre style='height:50ex;'> 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|Modula-2}}==
| |||