%I #14 Jan 28 2023 18:00:52
%S 2,16,100,107,114,121,128,135,142,688,744,800,856,912,968,1024,4804,
%T 4853,4902,4951,5000,5049,5098,5154,5203,5252,5301,5350,5399,5448,
%U 5504,5553,5602,5651,5700,5749,5798,5854,5903,5952,6001,6050,6099,6148,6204,6253
%N Base-7 palindromes that start with 2.
%H Robert P. P. McKone, <a href="/A043016/b043016.txt">Table of n, a(n) for n = 1..800</a>
%t 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_ *)
%Y Cf. A007093, A029954, A043060.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
%E More terms from _Robert P. P. McKone_, Aug 22 2021