A043031 Base-9 palindromes that start with 4.

4, 40, 328, 337, 346, 355, 364, 373, 382, 391, 400, 2920, 3010, 3100, 3190, 3280, 3370, 3460, 3550, 3640, 26248, 26329, 26410, 26491, 26572, 26653, 26734, 26815, 26896, 26986, 27067, 27148, 27229, 27310, 27391, 27472, 27553, 27634, 27724, 27805, 27886, 27967

Offset

1,1

Links

Robert P. P. McKone, Table of n, a(n) for n = 1..911

Mathematica

a[base_Integer, leading_Integer] := With[{k = 2}, Map[FromDigits[#, base] &, {{leading}, {leading, leading}}]~Join~Union@Flatten@Join[{ParallelMap[FromDigits[#, base] &@Join[#, Reverse@#] &@Join[{leading}, IntegerDigits[#, base]] &, Range[0, base^k - 1]], ParallelMap[FromDigits[#, base] &@Join[#, Reverse@Most[#]] &@Join[{leading}, IntegerDigits[#, base]] &, Range[0, base^k - 1]]}]];
a[9, 4] (* Robert P. P. McKone, Aug 26 2021 *)

Crossrefs

Cf. A007095, A043075.

Sequence in context: A277652 A190541 A298198 * A121126 A145730 A069721

Adjacent sequences: A043028 A043029 A043030 * A043032 A043033 A043034

Keyword

nonn,base

Author

Clark Kimberling

Extensions

More terms from Robert P. P. McKone, Aug 22 2021

Status

approved