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
KEYWORD
nonn,base
AUTHOR
STATUS
approved