OFFSET
1,2
MATHEMATICA
b8s3Q[n_]:=Module[{idn=IntegerDigits[n, 8]}, idn[[1]]==3&&idn== Reverse[ idn]]; (#+5)/8&/@Select[Range[15000], b8s3Q] (* Harvey P. Dale, Dec 26 2021 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved