30 lines
345 B
Plaintext
30 lines
345 B
Plaintext
define found = 0, fct = 0, i = 1
|
|
|
|
do
|
|
|
|
if found < 10 then
|
|
|
|
let fct = factorial(i)
|
|
|
|
if prime(fct - 1) then
|
|
|
|
let found = found + 1
|
|
print found, ": ", i, "! - 1 = ", fct - 1
|
|
|
|
endif
|
|
|
|
if prime(fct + 1) then
|
|
|
|
let found = found + 1
|
|
print found, ": ", i, "! + 1 = ", fct + 1
|
|
|
|
endif
|
|
|
|
let i = i + 1
|
|
|
|
endif
|
|
|
|
wait
|
|
|
|
loop found < 10
|