Data commit

Task/Pernicious-numbers/Icon/pernicious-numbers.icon

@@ -0,0 +1,16 @@
+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