OFFSET
1,2
MATHEMATICA
r[n_]:=FromDigits[Reverse[IntegerDigits[n]]]; v={}; Do[If[r[n]==n, v=Append[v, n]], {n, 0, 2200}]; Table[v[[2k]], {k, Floor[Length[v]]/2}]
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
N. J. A. Sloane, Nov 20 2004
EXTENSIONS
Extended with Mathematica program by Farideh Firoozbakht, Dec 01 2004
STATUS
approved