login
Add 4, then reverse the decimal digits; start with 10.
5

%I #19 Mar 16 2022 03:00:13

%S 10,41,54,85,98,201,502,605,906,19,32,63,76,8,21,52,65,96,1,5,9,31,53,

%T 75,97,101,501,505,905,909,319,323,723,727,137,141,541,545,945,949,

%U 359,363,763,767,177,181,581,585,985,989,399,304,803,708,217,122,621,526

%N Add 4, then reverse the decimal digits; start with 10.

%C Enters the cycle of length 54 given in A119031 at a(19) = 1. - _M. F. Hasler_, Mar 15 2022

%t Reversal = ToExpression @ StringReverse @ ToString[ # ] &; a[ 1 ]=10; a[ n_Integer ] := Reversal[ a[ n - 1 ] + 4 ]; Table[ a[ n ], {n, 1, 80} ] (* _Robert G. Wilson v_ *)

%t NestList[FromDigits[Reverse[IntegerDigits[# + 4]]] &, 10, 70] (* _Harvey P. Dale_, Jan 18 2011 *)

%o (PARI) A016082=vector(99, i, a=if(i>1,fromdigits(Vecrev(digits(a+4))),10)) \\ _M. F. Hasler_, Mar 15 2022

%o (Python)

%o def A016082(N=99, a=10, d=4): # optional args: # terms, initial value, increment

%o for _ in range(N): yield a; a=int(str(a+d)[::-1])

%o list(A016082()) # _M. F. Hasler_, Mar 15 2022

%Y All of A003608, A016081, A016082 (and possibly others) eventually reach the trajectory of 1 shown in A119031. Cf. A055198.

%K nonn,base

%O 1,1

%A _Robert G. Wilson v_

%E Edited by _Charles R Greathouse IV_, Aug 04 2010

%E Name edited by _M. F. Hasler_, Mar 15 2022