Lychrel numbers: Difference between revisions
m
→{{header|Mathematica}}
Alextretyak (talk | contribs) (Added 11l) |
|||
Line 2,151:
</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
A few convenient functions:
<lang Mathematica>palindromeQ[n_Integer] :=
Line 2,174:
Length@# > 0 &]; seeds = Flatten@seeds</lang>
{{out}}
<pre>{196,879,1997,7059,9999}</pre>▼
▲{196,879,1997,7059,9999}</pre>
Note, here only 10 iterations were done for comparison. While reducing the number of
iterations is clearly effective for intergers less than 10,000 this may not be sufficient
| |||