Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #14 Feb 19 2023 11:01:52
%S 1,19,109,919,937,757,775,595,613,334,451,172,289,1000,19,109,919,937,
%T 757,775,595,613,334,451,172,289,1000,19,109,919,937,757,775,595,613,
%U 334,451,172,289,1000,19,109,919,937,757,775,595,613,334,451,172,289
%N Start with 1 and repeatedly reverse the digits and add 18 to get the next term.
%C After 1 step enters a cycle of length 13.
%H Harvey P. Dale, <a href="/A118607/b118607.txt">Table of n, a(n) for n = 1..1000</a>
%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_13">Index entries for linear recurrences with constant coefficients</a>, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1).
%F a(n) = a(n-13) for n >= 15. - _Wesley Ivan Hurt_, Sep 04 2022
%t NestList[IntegerReverse[#]+18&,1,60] (* or *) PadRight[{1},120,{1000,19,109,919,937,757,775,595,613,334,451,172,289}] (* _Harvey P. Dale_, Feb 19 2023 *)
%Y Cf. A117828, A117816, A117817.
%K base,nonn
%O 1,2
%A Luc Stevens (lms022(AT)yahoo.com), May 08 2006