A030150 Palindromic primes in which parity of digits alternates.

2, 3, 5, 7, 101, 181, 383, 727, 787, 929, 10301, 10501, 12721, 14341, 14741, 16361, 16561, 18181, 30103, 30703, 32323, 34543, 36563, 38183, 38783, 70507, 72727, 74747, 76367, 78787, 90709, 94349, 94949, 96769, 98389, 1074701

Offset

1,1

Links

Giovanni Resta, Table of n, a(n) for n = 1..10000

Mathematica

altQ[n_] := n < 10 || Union[Total /@ Partition[ Mod[ IntegerDigits@ n, 2], 2, 1]] == {1}; palQ[n_] := Block[{d = IntegerDigits[n]}, d == Reverse@ d]; Select[ Prime@ Range@ 10000, palQ[#] && altQ[#] &] (* Giovanni Resta, Aug 16 2018 *)
Join[{2, 3, 5, 7}, Select[Prime[Range[85000]], PalindromeQ[#]&&Union[Total/@Partition[ Boole[ EvenQ/@IntegerDigits[#]], 2, 1]]=={1}&]] (* Harvey P. Dale, Jul 10 2023 *)

Crossrefs

Cf. A030144, A030147, A030148, A030149.

Sequence in context: A080437 A092908 A050784 * A343675 A029977 A052019

Adjacent sequences: A030147 A030148 A030149 * A030151 A030152 A030153

Keyword

nonn,base

Author

Patrick De Geest

Status

approved