Ormiston pairs: Difference between revisions
m
→{{header|EasyLang}}
Line 625:
<syntaxhighlight>
maxn = 1000000
len
proc
max = sqrt len
for d = 2 to max
if
for i = d * d step d to len
.
.
.
.
mksieve
func nextprim n .
repeat
n += 1
until
.
return n
.
#
func digs n .
while n > 0
Line 658 ⟶ 659:
db = da
a = nextprim a
until a >
da = digs a
if da = db
|