|
%I #18 May 11 2022 13:30:54
%S 5,6,7,8,9,19,28,37,39,46,48,49,55,57,58,64,66,67,73,75,76,82,84,85,
%T 91,93,94,109,119,129,139,149,150,151,152,153,154,159,160,161,162,163,
%U 169,170,171,172,173,179,189,208,218,219,228,229,238,239,248
%N Two 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 A065207.
%H Harvey P. Dale, <a href="/A015977/b015977.txt">Table of n, a(n) for n = 0..1000</a>
%H <a href="/index/Res#RAA">Index entries for sequences related to Reverse and Add!</a>
%t Select[Range[250],Boole[PalindromeQ/@Rest[NestList[#+IntegerReverse[#]&,#,2]]] == {0,1}&] (* _Harvey P. Dale_, May 11 2022 *)
%o (Python)
%o def ra(n): s = str(n); return int(s) + int(s[::-1])
%o def ispal(n): s = str(n); return s == s[::-1]
%o def aupto(limit):
%o alst = []
%o for k in range(limit+1):
%o k2 = ra(k)
%o if ispal(k2): continue
%o if ispal(ra(k2)): alst.append(k)
%o return alst
%o print(aupto(250)) # _Michael S. Branicky_, May 06 2021
%Y Cf. A002113, A065207.
%K nonn,base
%O 0,1
%A _Robert G. Wilson v_
|
