RosettaCodeData/Task/Pernicious-numbers/Phix/pernicious-numbers.phix
2026-02-01 16:33:20 -08:00

13 lines
267 B
Text

with javascript_semantics
function pernicious(integer n)
return is_prime(sum(int_to_bits(n,32)))
end function
sequence s = {}
integer n = 1
do
do n += 1 until pernicious(n)
s &= n
until length(s)=25
?s
?filter(tagset(888_888_888,888_888_877),pernicious)