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,2

Links

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

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 *)

Crossrefs

Sequence in context: A085951 A132286 A070788 * A364836 A068061 A332970

Adjacent sequences: A030145 A030146 A030147 * A030149 A030150 A030151

Keyword

nonn,base

Author

Patrick De Geest

Status

approved