OFFSET
1,2
MATHEMATICA
b7p3Q[n_]:=Module[{idn7=IntegerDigits[n, 7]}, idn7[[1]]==3&&idn7 == Reverse[ idn7]]; (#+4)/7&/@Select[Range[10000], b7p3Q] (* Harvey P. Dale, Apr 27 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved