A070698 - OEIS

%I #3 Feb 11 2014 19:05:28

%S 1,2,3,4,5,6,7,8,9,11,12,13,14,15,16,17,18,19,29,39,49,59,69,79,89,99,

%T 101,102,103,104,105,106,107,108,109,119,129,139,149,159,169,179,189,

%U 199,299,399,499,599,699,799,899,999

%N Numbers n such that reverse(n) sets a record (that is, n such that reverse(n) > reverse(k) for all k < n).

%t h = -1; l = {}; Do[a = FromDigits[Reverse[IntegerDigits[n]]]; If[a > h, h = a; l = Append[l, n]], {n, 1, 10^3}]; l

%K base,nonn

%O 1,2

%A _Joseph L. Pe_, May 13 2002