|
%I #11 Jan 18 2019 11:23:39
%S 1,26,87,103,326,648,871,203,327,748,872,303,328,848,873,403,329,948,
%T 874,503,330,58,110,36,88,113,336,658,881,213,337,758,882,313,338,858,
%U 883,413,339,958,884,513,340,68,111,136,656,681,211,137,756,682,311,138
%N Start with 1 and repeatedly reverse the digits and add 25 to get the next term.
%C After 131 steps enters a cycle of length 45: (72, 52, 50, 30, 28, 107, 726, 652, 281, 207, 727, 752, 282, 307, 728, 852, 283, 407, 729, 952, 284, 507, 730, 62, 51, 40, 29, 117, 736, 662, 291, 217, 737, 762, 292, 317, 738, 862, 293, 417, 739, 962, 294, 517, 740, 72, 52, 50, 30,...)
%H N. J. A. Sloane and others, <a href="/wiki/Sequences_of_RADD_type">Sequences of RADD type</a>, OEIS wiki.
%H <a href="/index/Rec#order_45">Index entries for linear recurrences with constant coefficients</a>, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1).
%t NestList[25+FromDigits[Reverse[IntegerDigits[#]]]&,1,90] (* _Harvey P. Dale_, Mar 18 2011 *)
%t NestList[25+IntegerReverse[#]&,1,90] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jan 18 2019 *)
%Y Cf. A117828, A117816, A117817.
%K base,nonn
%O 1,2
%A Luc Stevens (lms022(AT)yahoo.com), May 07 2006
|
