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

10, 41, 54, 85, 98, 201, 502, 605, 906, 19, 32, 63, 76, 8, 21, 52, 65, 96, 1, 5, 9, 31, 53, 75, 97, 101, 501, 505, 905, 909, 319, 323, 723, 727, 137, 141, 541, 545, 945, 949, 359, 363, 763, 767, 177, 181, 581, 585, 985, 989, 399, 304, 803, 708, 217, 122, 621, 526

Offset

1,1

Comments

Enters the cycle of length 54 given in A119031 at a(19) = 1. - M. F. Hasler, Mar 15 2022

Links

Table of n, a(n) for n=1..58.

Mathematica

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 *)
NestList[FromDigits[Reverse[IntegerDigits[# + 4]]] &, 10, 70] (* Harvey P. Dale, Jan 18 2011 *)

Prog

(PARI) A016082=vector(99, i, a=if(i>1, fromdigits(Vecrev(digits(a+4))), 10)) \\ M. F. Hasler, Mar 15 2022
(Python)
def A016082(N=99, a=10, d=4): # optional args: # terms, initial value, increment
   for _ in range(N): yield a; a=int(str(a+d)[::-1])
list(A016082()) # M. F. Hasler, Mar 15 2022

Crossrefs

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

Sequence in context: A000449 A027274 A253674 * A346346 A003355 A247201

Adjacent sequences: A016079 A016080 A016081 * A016083 A016084 A016085

Keyword

nonn,base

Author

Robert G. Wilson v

Extensions

Edited by Charles R Greathouse IV, Aug 04 2010

Name edited by M. F. Hasler, Mar 15 2022

Status

approved