A244058 n-th term of the 'Reverse and Add!' sequence starting with n.
1, 4, 12, 77, 44, 363, 484, 4444, 79497, 14003, 88088, 175857, 1596595, 1716517, 17794887, 13528163, 176599676, 839546037, 1317544822, 853595347, 8836886388, 13236127322, 13297007933, 668823329856, 175304440267, 909153350908, 9317488848228, 8813200023188
Offset: 1
Links
Programs
-
Maple
b:= proc(n, j) option remember; `if`(j=1, n, (h-> h+ (s-> parse(cat(s[-i]$i=1..length(s))))(""||h))(b(n, j-1))) end: a:= n-> b(n$2): seq(a(n), n=1..40);
-
Mathematica
Table[Nest[#+IntegerReverse[#]&,n,n-1],{n,30}] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 07 2021 *)
Comments