Pernicious numbers: Difference between revisions

</pre>

=={{header|Frink}}==

<lang frink>isPernicious = {|x|

bits = countToDict[integerDigits[x,2]].get[1,0]

return bits > 1 and isPrime[bits]

}

println["First 25: " + first[select[count[1], isPernicious], 25]]

println[select[888_888_877 to 888_888_888, isPernicious]]</lang>

{{out}}

<pre>

First 25: [3, 5, 6, 7, 9, 10, 11, 12, 13, 14, 17, 18, 19, 20, 21, 22, 24, 25, 26, 28, 31, 33, 34, 35, 36]

[888888877, 888888878, 888888880, 888888883, 888888885, 888888886]