A033649 Trajectory of 5 under map x->x + (x-with-digits-reversed).

5, 10, 11, 22, 44, 88, 176, 847, 1595, 7546, 14003, 44044, 88088, 176176, 847847, 1596595, 7553546, 14007103, 44177144, 88354288, 176599676, 853595347, 1597190705, 6668108656, 13236127322, 35608290553

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn
• base

Comments

Trajectories of 15, 21, 24, 30, 39, 42, 48, 51, 57, 60, 69, 75, 78, 84, 87, 93, 96, ..., merge into this sequence. - Robert G. Wilson v, Dec 16 2005

A Reverse and Add! sequence.

Trajectories of 13, 17, 20, 26, 31, 35, 40, 53, 62, 71, 79, 80, 97, ..., merge into this sequence. - Robert G. Wilson v, Dec 16 2005

Links

• Alois P. Heinz, Table of n, a(n) for n = 0..1000 (first 251 terms from Reinhard Zumkeller)
• Index entries for sequences related to Reverse and Add!

Crossrefs

Cf. A006960, A001127, A033648, A033650, A033651.

Cf. A056964, A004086.

Row n=5 of A243238.

Programs

Haskell

a033649 n = a033649_list !! n
a033649_list = iterate a056964 5 -- Reinhard Zumkeller, Sep 22 2011

Maple

a:= proc(n) option remember; `if`(n=0, 5, (h-> h+ (s->
      parse(cat(s[-i]$i=1..length(s))))(""||h))(a(n-1)))
    end:
seq(a(n), n=0..40);  # Alois P. Heinz, Jun 18 2014

Mathematica

NestList[ # + FromDigits@Reverse@IntegerDigits@# &, 5, 29] (* Robert G. Wilson v, Dec 16 2005 *)