|
function semiprime( n as uinteger ) as boolean
|
|
dim as uinteger a = 2, c = 0
|
|
while c < 3 andalso n > 1
|
|
if n mod a = 0 then
|
|
n /= a
|
|
c += 1
|
|
else
|
|
a += 1
|
|
end if
|
|
wend
|
|
if c = 2 then return true
|
|
return false
|
|
end function
|
|
|
|
for i as uinteger = 0 to 64
|
|
print i, semiprime(i)
|
|
next i
|