RosettaCodeData/Task/Pernicious-numbers/Mathematica/pernicious-numbers-4.math
2023-07-01 13:44:08 -04:00

1 line
56 B
Text

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