RosettaCodeData/Task/Lucas-Lehmer-test/Craft-Basic/lucas-lehmer-test.basic
2023-07-01 19:04:52 -04:00

30 lines
225 B
Text

let m = 7
let n = 1
for e = 2 to m
if e = 2 then
let s = 0
else
let s = 4
endif
let n = (n + 1) * 2 - 1
for i = 1 to e - 2
let s = (s * s - 2) % n
next i
if s = 0 then
print e, " ",
endif
next e