OFFSET
1,1
COMMENTS
The next term has 168 digits. - Harvey P. Dale, Dec 01 2017
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, Jun 05 2007 *)
NestList[(#+IntegerReverse[#])Abs[#-IntegerReverse[#]]&, 12, 10] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Dec 01 2017 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Jul 09 2005
EXTENSIONS
Corrected and extended by Stefan Steinerberger, Jun 05 2007
Definition corrected by Georg Fischer, Sep 09 2022
STATUS
approved