Sum of square and cube digits of an integer are primes: Difference between revisions

Content added Content deleted
Line 723:
 
sub isPrime(n)
local di
if n < 4 dreturn n >= 52
for i = 2 to sqrt(n)
if n < 2 return false
if not mod(n, 2i) return n = 2false
next
if not mod(n, 3) return n = 3
while d*d <= n
if not mod(n, d) return false
d = d + 2
if not mod(n, d) return false
d = d + 4
wend
return true
end sub
Retrieved from "https://rosettacode.org/wiki/Sum_of_square_and_cube_digits_of_an_integer_are_primes"