OFFSET
1,2
COMMENTS
LINKS
Harvey P. Dale and Jaroslav Krizek, Table of n, a(n) for n = 1..2222 (first 1000 terms from Harvey P. Dale)
MATHEMATICA
palQ[n_Integer, base_Integer] := Module[{idn = IntegerDigits[n, base]}, idn == Reverse[idn]]; Select[Range[0, 20000], IntegerDigits[#][[1]] == 1 && palQ[#, 10] &] (* T. D. Noe, Mar 12 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved