A043043 Base 10 palindromes that start with 8.

8, 88, 808, 818, 828, 838, 848, 858, 868, 878, 888, 898, 8008, 8118, 8228, 8338, 8448, 8558, 8668, 8778, 8888, 8998, 80008, 80108, 80208, 80308, 80408, 80508, 80608, 80708, 80808, 80908, 81018, 81118, 81218, 81318, 81418, 81518, 81618, 81718, 81818, 81918

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Links

• Jaroslav Krizek, Table of n, a(n) for n = 1..2222

Programs

Mathematica

palQ[n_Integer, base_Integer] := Module[{idn = IntegerDigits[n, base]}, idn == Reverse[idn]]; Select[Range[0, 100000], IntegerDigits[#][[1]] == 8 && palQ[#, 10] &] (* T. D. Noe, Mar 12 2013 *)
Select[Range[82000],PalindromeQ[#]&&First[IntegerDigits[#]]==8&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 12 2019 *)