|
%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
|
