A065211 - OEIS

%I #9 Sep 09 2012 11:26:55

%S 79,97,182,281,380,779,799,889,977,988,997,1069,1079,1159,1169,1249,

%T 1259,1339,1349,1429,1439,1519,1529,1609,1619,1699,1709,1789,1799,

%U 1879,1889,1896,1969,1979,1986,2059,2068,2078,2089,2149,2158,2168,2179,2239

%N Six '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 <a href="/index/Res#RAA">Index entries for sequences related to Reverse and Add!</a>

%t palQ[n_] := Module[{idn = IntegerDigits[n]}, idn == Reverse[idn]]; pal6Q[ n_]:= Module[{c=NestList[#+FromDigits[Reverse[IntegerDigits[#]]]&, n,6]}, palQ/@c=={False,False,False,False,False,False,True}]; Select[Range[ 2300],pal6Q] (* _Harvey P. Dale_, Sep 09 2012 *)

%Y A002113, A015984, 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