A043030 Base-9 palindromes that start with 3.
3, 30, 246, 255, 264, 273, 282, 291, 300, 309, 318, 2190, 2280, 2370, 2460, 2550, 2640, 2730, 2820, 2910, 19686, 19767, 19848, 19929, 20010, 20091, 20172, 20253, 20334, 20424, 20505, 20586, 20667, 20748, 20829, 20910
Offset: 1
Links
- Robert P. P. McKone, Table of n, a(n) for n = 1..911
Programs
-
Mathematica
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 *)