|
|
A063054
|
|
'Reverse and Add!' trajectory of 1997.
|
|
3
|
|
|
1997, 9988, 18887, 97768, 184547, 930028, 1750067, 9350638, 17711177, 94822948, 179745797, 977293768, 1844686547, 9301551028, 17503102067, 93523232638, 177146465177, 948711106948, 1798312224797, 9772534363768, 18446168716547
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
EXAMPLE
|
a(1) = 1997 + 7991 = 9988.
|
|
MATHEMATICA
|
NestList[ #+FromDigits[ Reverse[ IntegerDigits[ # ] ] ]&, 1997, 25 ]
|
|
PROG
|
(ARIBAS): m := 1997; stop := 25; c := 0; rev := int_reverse(m); while m <> rev and c < stop do inc(c); write(m, " "); m := m + rev; rev := int_reverse(m); end;
(Haskell)
a063054 n = a063054_list !! n
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|