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,1

Links

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

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 *)

Crossrefs

Cf. A007093, A029954, A043060.

Sequence in context: A207913 A208694 A319603 * A197202 A361814 A032260

Adjacent sequences: A043013 A043014 A043015 * A043017 A043018 A043019

Keyword

nonn,base

Author

Clark Kimberling

Extensions

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

Status

approved