|
%I #11 May 11 2019 10:24:32
%S 829,928,9059,9149,9239,9329,9419,9509,9599,9689,9779,9869,9959,10634,
%T 10637,10687,10716,10808,10834,10838,10867,10873,10898,10927,10979,
%U 11398,11624,11627,11677,11706,11824,11828,11857,11863,11888
%N Numbers such that ten 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 A065215.
%H <a href="/index/Res#RAA">Index entries for sequences related to Reverse and Add!</a>
%t tiraQ[n_]:=Rest[Boole[PalindromeQ/@NestList[#+IntegerReverse[#]&,n,10]]]=={0,0,0,0,0,0,0,0,0,1}; Select[Range[12000],tiraQ] (* _Harvey P. Dale_, May 11 2019 *)
%Y Cf. A002113. Different from A065215.
%K nonn,base
%O 1,1
%A _Robert G. Wilson v_
|
