|
%I #6 Mar 30 2018 10:10:45
%S 22,23,33,34,44,45,55,56,66,67,77,78,88,89,99,100,2,3,4,5,6,7,8,9,10,
%T 2,3,4,5,6,7,8,9,10,2,3,4,5,6,7,8,9,10,2,3,4,5,6,7,8,9,10,2,3,4,5,6,7,
%U 8,9,10,2,3,4,5,6,7,8,9,10,2,3,4,5,6,7,8,9,10,2,3,4,5,6,7,8,9,10,2,3,4,5,6
%N Start with 22 and repeatedly reverse the digits and add 1 to get the next term.
%C After 16 steps enters a cycle of length 9.
%H N. J. A. Sloane and others, <a href="/wiki/Sequences_of_RADD_type">Sequences of RADD type</a>, OEIS wiki.
%t NestList[IntegerReverse[#]+1&,22,100] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Mar 30 2018 *)
%Y Cf. A118551.
%K base,nonn
%O 1,1
%A Luc Stevens (lms022(AT)yahoo.com), May 14 2006
|
