perniciousQ[n_Integer] := PrimeQ@Total@IntegerDigits[n, 2]