|
%I #16 Dec 20 2018 15:36:37
%S 166,176,198,265,275,297,364,374,396,463,473,495,549,562,572,594,639,
%T 648,661,671,693,738,760,770,792,837,846,891,936,945,990,1396,1486,
%U 1576,1666,1697,1756,1787,1791,1793,1796,1846,1877,1883,1886,1890,1936
%N Five 'Reverse and Add' steps are needed to reach a palindrome.
%C The number of steps starts at 0, so palindromes (cf. A002113) are excluded.
%H Harvey P. Dale, <a href="/A065210/b065210.txt">Table of n, a(n) for n = 1..3000</a>
%H <a href="/index/Res#RAA">Index entries for sequences related to Reverse and Add!</a>
%t palQ[k_]:=IntegerDigits[k]==Reverse[IntegerDigits[k]]; fraQ[n_]:= Module[ {ras=NestList[#+FromDigits[Reverse[IntegerDigits[#]]]&,n,5]},palQ/@ ras=={False,False,False,False,False,True}]; Select[Range[2000],fraQ] (* _Harvey P. Dale_, Sep 28 2015 *)
%Y Cf. A002113, A015982, A065206.
%K nonn,base
%O 1,1
%A _Klaus Brockhaus_, Oct 21 2001
%E Offset changed to 1 by _Harry J. Smith_, Oct 14 2009
|
