OFFSET
1,1
LINKS
Jaroslav Krizek, Table of n, a(n) for n = 1..2222
MATHEMATICA
palQ[n_Integer, base_Integer] := Module[{idn = IntegerDigits[n, base]}, idn == Reverse[idn]]; Select[Range[0, 100000], IntegerDigits[#][[1]] == 2 && palQ[#, 10] &] (* T. D. Noe, Mar 12 2013 *)
Select[Range[22000], PalindromeQ[#]&&IntegerDigits[#][[1]]==2&] (* Harvey P. Dale, Feb 21 2024 *)
PROG
(PARI) isok(n) = (d=digits(n)) && (d[1]==2) && (Vecrev(d)==d); \\ Michel Marcus, Aug 22 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved