[go: up one dir, main page]

login
A043043
Base 10 palindromes that start with 8.
2
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,1
LINKS
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 *)
CROSSREFS
Sequence in context: A030984 A109021 A271939 * A003492 A368919 A053376
KEYWORD
nonn,base
STATUS
approved