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

1 line
56 B
Text

Cases[Range[888888877, 888888888], _?(perniciousQ@# &)]