A382337 Palindromes in base 10 in which the difference between the sums of the digits in the even and odd positions is zero.
0, 11, 22, 33, 44, 55, 66, 77, 88, 99, 121, 242, 363, 484, 1001, 1111, 1221, 1331, 1441, 1551, 1661, 1771, 1881, 1991, 2002, 2112, 2222, 2332, 2442, 2552, 2662, 2772, 2882, 2992, 3003, 3113, 3223, 3333, 3443, 3553, 3663, 3773, 3883, 3993, 4004, 4114, 4224, 4334, 4444, 4554, 4664, 4774, 4884, 4994
Offset: 1
Programs
-
Mathematica
Select[11 * Range[0, 500], PalindromeQ[#] && Total[IntegerDigits[#][[1 ;; -1 ;; 2]]] == Total[IntegerDigits[#][[2 ;; -1 ;; 2]]] &] (* Amiram Eldar, Mar 22 2025 *)