OFFSET
1,2
MATHEMATICA
p = 1; d = 0; Do[ If[ FromDigits[ Reverse[ IntegerDigits[n]]] == n && n - p > d, Print[n]; d = n - p; p = n], {n, 2, 29691}]
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, May 21 2002
EXTENSIONS
Edited, corrected and extended by Robert G. Wilson v, Dec 03 2002
STATUS
approved