|
| |
|
|
A109867
|
|
a(1) = 12; for n >= 1, a(n+1) = {a(n)+R(a(n)}*{a(n)-R(a(n)}. where R(k) is the digit reversal of k.
|
|
0
| |
|
|
12, 297, 539055, 12949081200, 167631138529627443759, 888408727567955042239409874101472777521040, 787659989217062162749912989661115208857840881836480202901460330472578518132645989056
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| a(2) = {12+21)*(21-12) = 297.
|
|
|
MATHEMATICA
| a = {12}; For[n = 2, n < 10, n++, AppendTo[a, Abs[(a[[ -1]] + FromDigits[Reverse[IntegerDigits[a[[ -1]]]]])* (a[[ -1]] - FromDigits[Reverse[IntegerDigits[a[[ -1]]]]])]]]; a - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Jun 05 2007
|
|
|
CROSSREFS
| Sequence in context: A001164 A041267 A041264 * A014130 A054942 A052795
Adjacent sequences: A109864 A109865 A109866 * A109868 A109869 A109870
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jul 09 2005
|
|
|
EXTENSIONS
| Corrected and extended by Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Jun 05 2007
|
| |
|
|
