OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..3000
MATHEMATICA
b7pQ[n_]:=Module[{idn7=IntegerDigits[n, 7]}, idn7[[1]]==1&&idn7== Reverse[ idn7]]; Select[Range[4000], b7pQ]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved