A030148 Odd palindromes in which parity of digits alternates.

1, 3, 5, 7, 9, 101, 121, 141, 161, 181, 303, 323, 343, 363, 383, 505, 525, 545, 565, 585, 707, 727, 747, 767, 787, 909, 929, 949, 969, 989, 10101, 10301, 10501, 10701, 10901, 12121, 12321, 12521, 12721, 12921, 14141, 14341, 14541, 14741

Offset: 1

Author

Patrick De Geest

Keywords

• nonn
• base

Links

• Matthew House, Table of n, a(n) for n = 1..10000

Programs

Mathematica

apQ[n_]:=And@@(#[[1]]!=#[[2]]&/@Partition[Boole[EvenQ[ IntegerDigits[ n]]],2,1]); Select[Range[1,15000,2],PalindromeQ[#]&&apQ[#]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 15 2021 *)