|
%I #19 Aug 27 2021 02:52:23
%S 3,30,246,255,264,273,282,291,300,309,318,2190,2280,2370,2460,2550,
%T 2640,2730,2820,2910,19686,19767,19848,19929,20010,20091,20172,20253,
%U 20334,20424,20505,20586,20667,20748,20829,20910
%N Base-9 palindromes that start with 3.
%H Robert P. P. McKone, <a href="/A043030/b043030.txt">Table of n, a(n) for n = 1..911</a>
%t okQ[n_] := Module[{idn = IntegerDigits[n, 9]}, First[idn] == 3 && FromDigits[IntegerDigits[n, 9]] == FromDigits[Reverse[idn]]]; Select[Range[20910], okQ] (* _Robert P. P. McKone_, Aug 22 2021, after _Harvey P. Dale_ in A043038 *)
%Y Cf. A007095, A029955, A043074.
%Y Cf. A043038.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
