OFFSET
1,1
LINKS
Robert P. P. McKone, Table of n, a(n) for n = 1..911
MATHEMATICA
okQ[n_] := Module[{idn = IntegerDigits[n, 9]}, First[idn] == 3 && FromDigits[IntegerDigits[n, 9]] == FromDigits[Reverse[idn]]]; Select[Range[20910], okQ] (* Robert P. P. McKone, Aug 22 2021, after Harvey P. Dale in A043038 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved