|
%I #11 Sep 24 2013 02:52:41
%S 188,190,197,287,296,386,395,485,584,593,683,692,782,791,881,890,980,
%T 1394,1484,1574,1664,1754,1844,1898,1934,1988,1992,1994,1999,2393,
%U 2483,2573,2663,2753,2843,2897,2933,2987,2991,2993,2998,3089,3179,3269,3359
%N Seven '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 Vincenzo Librandi, <a href="/A065212/b065212.txt">Table of n, a(n) for n = 1..1000</a>
%H <a href="/index/Res#RAA">Index entries for sequences related to Reverse and Add!</a>
%t lenQ[n_]:= Length[NestWhileList[# + FromDigits[Reverse[IntegerDigits[#]]]&, n,#!= FromDigits[Reverse[IntegerDigits[#]]]&, 1, 10]] == 8; Select[Range[500], lenQ] (* _Vincenzo Librandi_, Sep 24 2013 *)
%Y A002113, A015986, A065206.
%K nonn,base
%O 1,1
%A _Klaus Brockhaus_, Oct 21 2001
%E OFFSET changed from 0,1 to 1,1 by _Harry J. Smith_, Oct 14 2009
|
