|
|
A033648
|
|
Trajectory of 3 under map x->x + (x-with-digits-reversed).
|
|
11
|
|
|
3, 6, 12, 33, 66, 132, 363, 726, 1353, 4884, 9768, 18447, 92928, 175857, 934428, 1758867, 9447438, 17794887, 96644658, 182289327, 906271608, 1712444217, 8836886388, 17673772776, 85401510447, 159803020905, 668823329856, 1327746658722, 3606313135953, 7201626272016
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
Normally one stops as soon as a palindrome is reached.
A Reverse and Add! sequence.
|
|
LINKS
|
|
|
MAPLE
|
a:= proc(n) option remember; `if`(n=0, 3, (h-> h+ (s->
parse(cat(s[-i]$i=1..length(s))))(""||h))(a(n-1)))
end:
|
|
MATHEMATICA
|
NestList[ # + FromDigits@Reverse@IntegerDigits@# &, 3, 29] (* Robert G. Wilson v, Dec 16 2005 *)
|
|
PROG
|
(Haskell)
a033648 n = a033648_list !! n
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|