OFFSET
1,2
MATHEMATICA
h = -1; l = {}; Do[a = FromDigits[Reverse[IntegerDigits[n]]]; If[a > h, h = a; l = Append[l, n]], {n, 1, 10^3}]; l
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Joseph L. Pe, May 13 2002
STATUS
approved