A121477 Zeroless palindromes with digit sum 9.
9, 171, 252, 333, 414, 11511, 12321, 13131, 21312, 22122, 31113, 1113111, 1121211, 1211121, 2111112, 111111111
Offset: 1
Crossrefs
Cf. A121476.
Programs
-
Mathematica
Select[Range[111111111],DigitCount[#,10,0]==0&&Total[IntegerDigits[#]]==9&& PalindromeQ[ #]&] (* Harvey P. Dale, Aug 27 2024 *)
Extensions
Corrected by Harvey P. Dale, Aug 27 2024