OFFSET
1,2
COMMENTS
a(n) is a palindrome for n in {1, 2, 4, 5, 6, 7, 8, 9, 11, 21, 28, 30}.
LINKS
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 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Alois P. Heinz, Jun 18 2014
STATUS
approved