A110785 Palindromes in which the digits are in nonincreasing order halfway through.

1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 22, 33, 44, 55, 66, 77, 88, 99, 101, 111, 202, 212, 222, 303, 313, 323, 333, 404, 414, 424, 434, 444, 505, 515, 525, 535, 545, 555, 606, 616, 626, 636, 646, 656, 666, 707, 717, 727, 737, 747, 757, 767, 777, 808, 818, 828, 838, 848

Offset: 1

Author

Amarnath Murthy, Aug 12 2005

Keywords

• base
• easy
• nonn

Examples

			After 111 the next term is 202 and not 121, 131, up to 191.
		

Links

• Paolo Xausa, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A002113, A110784.

Programs

Mathematica

A110785Q[k_] := PalindromeQ[#] && (Length[#] <= 2 || Min[Differences[#[[;;Ceiling[Length[#]/2]]]]] <= 0) & [IntegerDigits[k]];
Select[Range[2000], A110785Q] (* Paolo Xausa, Jul 31 2025 *)