|
%I #24 Jan 14 2018 14:39:33
%S 0,2,4,6,8,11,33,55,77,99,11,22,33,44,55,66,77,88,99,121,22,33,44,55,
%T 66,77,88,99,121,121,33,44,55,66,77,88,99,121,121,363,44,55,66,77,88,
%U 99,121,121,363,484,55,66,77,88,99,121,121,363,484,1111,66,77,88,99,121
%N Start with n; add to itself with digits reversed; if palindrome, stop; otherwise repeat; a(n) gives palindrome at which it stops, or -1 if no palindrome is ever reached.
%C It is believed that n = 196 is the smallest integer which never reaches a palindrome.
%H T. D. Noe, <a href="/A061563/b061563.txt">Table of n, a(n) for n=0..195</a>
%H <a href="/index/Res#RAA">Index entries for sequences related to Reverse and Add!</a>
%e 19 -> 19 + 91 = 110 -> 110 + 011 = 121, so a(19) = 121.
%t tol = 1000; r[n_] := FromDigits[Reverse[IntegerDigits[n]]]; palQ[n_] := n == r[n]; ar[n_] := n + r[n]; Table[k = 0; If[palQ[n], n = ar[n]; k = 1]; While[! palQ[n] && k < tol, n = ar[n]; k++]; If[k == tol, n = -1]; n, {n, 0, 64}] (* _Jayanta Basu_, Jul 11 2013 *)
%t Table[Module[{k=n+IntegerReverse[n]},While[k!=IntegerReverse[k],k=k+IntegerReverse[k]];k],{n,0,70}] (* The program uses the IntegerReverse function from Mathematica version 10 *) (* _Harvey P. Dale_, Jul 19 2016 *)
%o (ARIBAS): var st: stack; test: boolean; end; for k := 0 to 60 do n := k; test := true; while test do n := n + int_reverse(n); test := n <> int_reverse(n); end; stack_push(st,n); end; stack2array(st).
%Y Cf. A033865. A016016 (number of steps), A023109, A006950, A023108.
%K nonn,base,easy,nice,look
%O 0,2
%A _N. J. A. Sloane_, May 18 2001
%E Corrected and extended by _Klaus Brockhaus_, May 20 2001
%E More terms from _Ray Chandler_, Jul 25 2003
|
