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

2 lines
82 B
Text
Raw Permalink Normal View History

2015-02-20 09:02:09 -05:00
n = 0; NestWhile[Flatten@{#, If[perniciousQ[++n], n, {}]} &, {}, Length@# < 25 &]