RosettaCodeData/Task/Pernicious-numbers/Mathematica/pernicious-numbers-2.math
2015-02-20 09:02:09 -05:00

1 line
59 B
Text

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