OFFSET
1,1
MATHEMATICA
Select[Range[111111111], DigitCount[#, 10, 0]==0&&Total[IntegerDigits[#]]==9&& PalindromeQ[ #]&] (* Harvey P. Dale, Aug 27 2024 *)
CROSSREFS
KEYWORD
fini,full,base,nonn
AUTHOR
Lekraj Beedassy, Aug 01 2006
EXTENSIONS
Corrected by Harvey P. Dale, Aug 27 2024
STATUS
approved