Rare numbers: Difference between revisions
Added Easylang
(Added Easylang) |
|||
Line 1,213:
39: 8,650,327,689,541,457
40: 8,650,349,867,341,457</pre>
=={{header|EasyLang}}==
{{trans|Ring}}
<syntaxhighlight lang=easylang>
fastfunc next n .
while 1 = 1
n += 1
h = n
nrev = 0
while h > 0
nrev = nrev * 10 + h mod 10
h = h div 10
.
if sqrt (n + nrev) mod 1 = 0
if n - nrev >= 1 and sqrt (n - nrev) mod 1 = 0
return n
.
.
.
.
for cnt to 5
n = next n
print n
.
</syntaxhighlight>
=={{header|F_Sharp|F#}}==
Line 1,303 ⟶ 1,329:
Elapsed Time: 11275839 ms for length 17
</pre>
=={{header|FreeBASIC}}==
| |||