This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A070698 #3 Feb 11 2014 19:05:28
%S A070698 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 A070698 101,102,103,104,105,106,107,108,109,119,129,139,149,159,169,179,189,
%U A070698 199,299,399,499,599,699,799,899,999
%N A070698 Numbers n such that reverse(n) sets a record (that is, n such that reverse(n) > reverse(k) for all k < n).
%t A070698 h = -1; l = {}; Do[a = FromDigits[Reverse[IntegerDigits[n]]]; If[a > h, h = a; l = Append[l, n]], {n, 1, 10^3}]; l
%K A070698 base,nonn
%O A070698 1,2
%A A070698 _Joseph L. Pe_, May 13 2002