A043087 (s(n)+2)/10, where s(n)=n-th base 10 palindrome that starts with 8.

1, 9, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 801, 812, 823, 834, 845, 856, 867, 878, 889, 900, 8001, 8011, 8021, 8031, 8041, 8051, 8061, 8071, 8081, 8091, 8102, 8112, 8122, 8132, 8142, 8152, 8162, 8172, 8182, 8192, 8203, 8213

Offset

1,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

(#+2)/10&/@Select[Range[100000], PalindromeQ[#]&&IntegerDigits[#][[1]]==8&] (* Harvey P. Dale, Jul 23 2025 *)
nLP[cn_Integer]:=Module[{s, len, half, left, pal, fdpal}, s=IntegerDigits[cn]; len=Length[s]; half=Ceiling[len/2]; left=Take[s, half]; pal=Join[left, Reverse[Take[left, Floor[len/2]]]]; fdpal=FromDigits[pal]; Which[cn==9, 11, fdpal>cn, fdpal, True, left=IntegerDigits[FromDigits[left]+1]; pal=Join[left, Reverse[Take[left, Floor[len/2]]]]; FromDigits[pal]]]; (#+2)/10&/@(Select[NestList[nLP[#]&, 1, 1000], IntegerDigits[#][[1]]==8&]) (* Harvey P. Dale, Oct 21 2025 *)

Crossrefs

Sequence in context: A014393 A008463 A203656 * A037414 A395594 A161147

Adjacent sequences: A043084 A043085 A043086 * A043088 A043089 A043090

Keyword

nonn,base

Author

Clark Kimberling

Status

approved