A043004 Base-4 palindromes that start with 2.

2, 10, 34, 38, 42, 46, 130, 150, 170, 190, 514, 530, 546, 562, 582, 598, 614, 630, 650, 666, 682, 698, 718, 734, 750, 766, 2050, 2130, 2210, 2290, 2310, 2390, 2470, 2550, 2570, 2650, 2730, 2810, 2830, 2910, 2990, 3070, 8194, 8258, 8322, 8386, 8466, 8530, 8594

Offset

1,1

Links

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

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[4, 2] (* Robert P. P. McKone, Aug 26 2021 *)

Crossrefs

Cf. A007090, A043003, A043005.

Sequence in context: A294667 A240407 A372190 * A316172 A108100 A059924

Adjacent sequences: A043001 A043002 A043003 * A043005 A043006 A043007

Keyword

nonn,base

Author

Clark Kimberling

Extensions

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

Status

approved