OFFSET
1,1
COMMENTS
A pattern is visible.
This conjectured Mathematica program builds on the perceived pattern:
Flatten[Table[FromDigits[Join[{n},PadRight[{},k,9],{n}]],{n,8},{k,0,4}]]//Sort
It will generate an additional 8 terms for each increase in the number of digits of added terms.(* Harvey P. Dale, Jan 29 2023 *)
EXAMPLE
595 + 11= 606 is also a palindrome.
MATHEMATICA
Select[Range[100000], AllTrue[#+{0, 11}, PalindromeQ]&] (* Harvey P. Dale, Jan 29 2023 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Apr 13 2003
STATUS
approved