RosettaCodeData/Task/Lychrel-numbers/Mathematica/lychrel-numbers-2.math
2023-07-01 13:44:08 -04:00

1 line
52 B
Text

candidates = Cases[Range[10000], _?(lychrelQ@# &)];