%I A109867
%S A109867 12,297,539055,12949081200,167631138529627443759,
%T A109867 888408727567955042239409874101472777521040,
%U A109867 787659989217062162749912989661115208857840881836480202901460330472578518132645989056
%N 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.
%e A109867 a(2) = {12+21)*(21-12) = 297.
%t A109867 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
%Y A109867 Sequence in context: A001164 A041267 A041264 this_sequence A014130 A054942 
               A052795
%Y A109867 Adjacent sequences: A109864 A109865 A109866 this_sequence A109868 A109869 
               A109870
%K A109867 base,nonn
%O A109867 1,1
%A A109867 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jul 09 2005
%E A109867 Corrected and extended by Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), 
               Jun 05 2007