RosettaCodeData/Task/Pernicious-numbers/Mathematica/pernicious-numbers-3.math

2 lines
82 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
n = 0; NestWhile[Flatten@{#, If[perniciousQ[++n], n, {}]} &, {}, Length@# < 25 &]