16 lines
309 B
Text
16 lines
309 B
Text
link "factors"
|
|
|
|
procedure main(A)
|
|
every writes((pernicious(seq())\25||" ") | "\n")
|
|
every writes((pernicious(888888877 to 888888888)||" ") | "\n")
|
|
end
|
|
|
|
procedure pernicious(n)
|
|
return (isprime(c1bits(n)),n)
|
|
end
|
|
|
|
procedure c1bits(n)
|
|
c := 0
|
|
while n > 0 do c +:= 1(n%2, n/:=2)
|
|
return c
|
|
end
|