login
Start with 1 and repeatedly reverse the digits and add 50 to get the next term.
0

%I #7 Dec 26 2018 16:30:31

%S 1,51,65,106,651,206,652,306,653,406,654,506,655,606,656,706,657,806,

%T 658,906,659,1006,6051,1556,6601,1116,6161,1666,6711,1226,6271,1776,

%U 6821,1336,6381,1886,6931,1446,6491,1996,7041,1457,7591,2007,7052,2557

%N Start with 1 and repeatedly reverse the digits and add 50 to get the next term.

%H N. J. A. Sloane and others, <a href="/wiki/Sequences_of_RADD_type">Sequences of RADD type</a>, OEIS wiki.

%F Never reaches a cycle (see A117816).

%t NestList[IntegerReverse[#]+50&,1,50] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Dec 26 2018 *)

%Y Cf. A117828, A117816, A117817.

%K base,nonn,less

%O 1,2

%A Luc Stevens (lms022(AT)yahoo.com), May 14 2006