RosettaCodeData/Task/Ultra-useful-primes/Craft-Basic/ultra-useful-primes.basic
2023-07-01 19:04:52 -04:00

14 lines
130 B
Text

for n = 1 to 10
let k = -1
do
let k = k + 2
wait
loop prime(2 ^ (2 ^ n) - k) = 0
print "n = ", n, " k = ", k
next n