Weird numbers: Difference between revisions
Content added Content deleted
(→{{header|Mathematica}} / {{header|Wolfram Language}}: use a more idiomatic way to get the result) |
(→{{header|Mathematica}} / {{header|Wolfram Language}}: on second thought accumulating results in a list is better) |
||
Line 1,755: | Line 1,755: | ||
] |
] |
||
] |
] |
||
r = {}; |
|||
Select[Range[16500], WeirdNumberQ]</lang> |
|||
n = 0; |
|||
While[ |
|||
Length[r] < 25, |
|||
If[WeirdNumberQ[++n], AppendTo[r, n]] |
|||
] |
|||
Print[r]</lang> |
|||
{{out}} |
{{out}} |
||
<pre>{70, 836, 4030, 5830, 7192, 7912, 9272, 10430, 10570, 10792, 10990, 11410, 11690, 12110, 12530, 12670, 13370, 13510, 13790, 13930, 14770, 15610, 15890, 16030, 16310}</pre> |
<pre>{70, 836, 4030, 5830, 7192, 7912, 9272, 10430, 10570, 10792, 10990, 11410, 11690, 12110, 12530, 12670, 13370, 13510, 13790, 13930, 14770, 15610, 15890, 16030, 16310}</pre> |