OFFSET
1,1
MATHEMATICA
b5pQ[n_]:=Module[{idn5=IntegerDigits[n, 5]}, idn5[[1]]==3&&idn5 == Reverse[ idn5]]; Select[Range[10000], b5pQ] (* Harvey P. Dale, Mar 08 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved