OFFSET
1,2
MATHEMATICA
(#+5)/10 &/@Select[Range[100000], IntegerDigits[#][[1]]==5 && PalindromeQ[#]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 31 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved