A033650 Trajectory of 7 under map x --> x + (x-with-digits-reversed).

7, 14, 55, 110, 121, 242, 484, 968, 1837, 9218, 17347, 91718, 173437, 907808, 1716517, 8872688, 17735476, 85189247, 159487405, 664272356, 1317544822, 3602001953, 7193004016, 13297007933, 47267087164, 93445163438, 176881317877, 955594506548, 1801200002107

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn
• base

Comments

A Reverse and Add! sequence.

Trajectories of 19, 23, 28, 29, 32, 37, 38, 41, 46, 47, 49, 50, ..., merge into this sequence. - Robert G. Wilson v, Dec 16 2005

A Reverse and Add! sequence.

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, A033649, A033651.

Cf. A056964, A004086.

Row n=7 of A243238.

Programs

Haskell

a033650 n = a033650_list !! n
a033650_list = iterate a056964 7 -- Reinhard Zumkeller, Sep 22 2011

Maple

a:= proc(n) option remember; `if`(n=0, 7, (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@# &, 7, 26] (* Robert G. Wilson v *)