By submitting the following form, you agree to Club Z!'s Terms of Use and Privacy Policy
Reverse Add Then Sort the digits in the previous term
1, 2, 4, 8, 16, 77, 145, 668, 1345, 6677, 13444, 55778, 133345, 666677, ...
NestWhileList[FromDigits[Sort[IntegerDigits[# + FromDigits[Reverse[IntegerDigits[#]]]]]] &, 1, UnsameQ, All, n]
Back to List | POWERED BY THE WOLFRAM LANGUAGE