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

Links

Table of n, a(n) for n=1..40.

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

Crossrefs

Cf. A030144.

Sequence in context: A042585 A143279 A272271 * A364142 A260128 A220569

Adjacent sequences: A068884 A068885 A068886 * A068888 A068889 A068890

Keyword

base,nonn

Author

Amarnath Murthy, Mar 20 2002

Status

approved