OFFSET
1,3
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 1..102
P. De Geest, Palindromic numbers beyond base 10
MATHEMATICA
palQ[n_Integer, base_Integer] := Block[{idn = IntegerDigits[n, base]}, idn == Reverse[idn]]; Select[ Range[10^7], palQ[ #, 6] && palQ[ #, 10] &] (* Robert G. Wilson v Sep 30 2004 *)
Select[Range[0, 10^5],
PalindromeQ[#] && # == IntegerReverse[#, 6] &] (* Robert Price, Nov 09 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved