A043016 Base-7 palindromes that start with 2.

2, 16, 100, 107, 114, 121, 128, 135, 142, 688, 744, 800, 856, 912, 968, 1024, 4804, 4853, 4902, 4951, 5000, 5049, 5098, 5154, 5203, 5252, 5301, 5350, 5399, 5448, 5504, 5553, 5602, 5651, 5700, 5749, 5798, 5854, 5903, 5952, 6001, 6050, 6099, 6148, 6204, 6253

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Links

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

Crossrefs

Cf. A007093, A029954, A043060.

Programs

Mathematica

okQ[n_] := Module[{idn = IntegerDigits[n, 7]}, First[idn] == 2 && FromDigits[ IntegerDigits[ n, 7]] == FromDigits[Reverse[idn]]]; Select[Range[6253], okQ] // Parallelize (* Robert P. P. McKone, Aug 22 2021, after Harvey P. Dale *)

Extensions

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