OFFSET
1,2
MATHEMATICA
palQ[n_]:=Module[{idn=IntegerDigits[n]}, idn==Reverse[idn]]; (#+7)/10&/@ Select[Range[40000], palQ[#]&&First[IntegerDigits[#]]==3&] (* Harvey P. Dale, Nov 29 2014 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved