RosettaCodeData/Task/Ultra-useful-primes/Craft-Basic/ultra-useful-primes.basic

15 lines
130 B
Text
Raw Permalink Normal View History

2023-07-01 19:04:33 -04:00
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