A068887 Primes with property that digits alternate in parity individually as well as in concatenation with previous terms.

2, 3, 23, 29, 41, 43, 47, 61, 67, 83, 89, 2129, 2141, 2143, 2161, 2309, 2341, 2347, 2381, 2383, 2389, 2503, 2521, 2543, 2549, 2707, 2729, 2741, 2749, 2767, 2789, 2903, 2909, 2927, 2963, 2969, 4127, 4129, 4327, 4349

Offset: 1

Author

Amarnath Murthy, Mar 20 2002

Keywords

• base
• nonn

Crossrefs

Cf. A030144.

Programs

Mathematica

d[n_]:=IntegerDigits[n]; aQ[n_]:=Union[Abs[Differences[Boole@EvenQ[d[n]]]]]=={1}; t={2,3}; Do[p=Prime[i]; x=FromDigits[Flatten[{d[Last[t]],d[p]}]]; If[aQ[p] && aQ[x],AppendTo[t,p]],{i,5,600}]; t (* Jayanta Basu, May 23 2013 *)