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 18:48, 13 November 2021
, 2 years agoAdd PILOT
Not a robot (talk | contribs) (Add Modula-2) |
Not a robot (talk | contribs) (Add PILOT) |
||
Line 730:
82,439 reverse primes < 10,000,000 found.
</pre>
=={{header|PILOT}}==
<lang pilot>C :n=1
*number
C :p=n
U :*prime
J (pr=0):*next
U :*rev
C :p=r
U :*prime
T (pr):#n
*next
C :n=n+1
J (n<500):*number
E :
*rev
C :r=0
*digit
C :z=p/10
:r=r*10+(p-z*10)
:p=z
J (z):*digit
E :
*prime
C :pr=0
E (p=1):
C :pr=1
E (p<4):
C :pr=0
E (p=2*(p/2)):
C :i=3
*div
E (p=i*(p/i)):
C :i=i+2
J (i<p/2):*div
C :pr=1
E :</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|Quackery}}==
Line 754 ⟶ 828:
157 167 179 181 191 199 311 313 337 347 353 359 373 383 389
</pre>
=={{header|Raku}}==
| |||