Unprimeable numbers: Difference between revisions

=={{header|Arturo}}==

<lang rebol>unprimeable?: function [n][

if prime? n -> return false

nd: to :string n

loop.with:'i nd 'prevDigit [

loop `0`..`9` 'newDigit [

if newDigit <> prevDigit [

nd\[i]: newDigit

if prime? to :integer nd -> return false

]

]

nd\[i]: prevDigit

]

return true

]

cnt: 0

x: 1

unprimeables: []

while [cnt < 600][

if unprimeable? x [

unprimeables: unprimeables ++ x

cnt: cnt + 1

]

x: x + 1

]

print "First 35 unprimeable numbers:"

print first.n: 35 unprimeables

print ""

print ["600th unprimeable number:" last unprimeables]</lang>

{{out}}

<pre>First 35 unprimeable numbers:

200 204 206 208 320 322 324 325 326 328 510 512 514 515 516 518 530 532 534 535 536 538 620 622 624 625 626 628 840 842 844 845 846 848 890

600th unprimeable number: 5242</pre>