%I #14 Aug 28 2024 10:58:52
%S 59,68,77,86,95,155,156,157,158,164,165,168,178,180,184,185,186,194,
%T 199,249,254,255,256,257,263,264,267,277,283,284,285,293,298,299,348,
%U 349,353,354,355,356,362,363,366,376,382,383,384,389,392,397
%N Three iterations of Reverse and Add are needed to reach a palindrome.
%C The number of iterations starts at 1, so palindromes (cf. A002113) are not excluded. The corresponding sequence excluding palindromes is A065208.
%H Robert Israel, <a href="/A015979/b015979.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Res#RAA">Index entries for sequences related to Reverse and Add!</a>
%p filter:= proc(n,t) local x, d, m, L, i;
%p x:= n;
%p L:= convert(x,base,10);
%p for i from 1 to t do
%p d:= nops(L);
%p x:= add(L[i]*(10^(i-1) + 10^(d-i)),i=1..d);
%p L:= convert(x,base,10);
%p if L = ListTools:-Reverse(L) then return (i=t) fi;
%p od;
%p false
%p end proc:
%p select(filter, [$1..1000], 3); # _Robert Israel_, Aug 26 2024
%Y Cf. A002113, A065208.
%K nonn,base
%O 1,1
%A _Robert G. Wilson v_
%E Offset corrected by _Robert Israel_, Aug 26 2024