2 lines
59 B
Text
2 lines
59 B
Text
|
perniciousQ[n_Integer] := PrimeQ@Total@IntegerDigits[n, 2]
|