|
%I #7 Dec 05 2013 19:57:02
%S 10,91,829,75448,685898587,62354417071445326,
%T 566858337013139332941310642858666,
%U 51532576092103575721937331168969696987113273922657630119157623515
%N a(1) = 10, a(n+1) = {a(n) followed by digit reversal(a(n))}/11.
%C a(1) = 10 is chosen because for n = say d <=9, the sequence is trivially d,d,d,d,d,d,...
%C The next term has 129 digits (From Harvey P. Dale, Feb 20 2011 *)
%e a(2) = 1001/11=91, a(3) = 9119/11=829.
%t nxt[n_]:=Module[{idn=IntegerDigits[n]},FromDigits[Join[idn,Reverse[idn]]]/11]
%t NestList[nxt,10,8] (* _Harvey P. Dale_, Feb 20 2011 *)
%K base,easy,nonn
%O 1,1
%A _Amarnath Murthy_, Jul 30 2005
%E More terms from _Joshua Zucker_, May 10 2006
|
