A050757 Primes containing no pair of consecutive equal digits.

2, 3, 5, 7, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 239, 241, 251, 257, 263, 269, 271, 281, 283, 293, 307, 313, 317, 347, 349

Offset: 1

Author

Patrick De Geest, Sep 15 1999

Keywords

• nonn
• base

Crossrefs

Cf. A043096, A000040, A050758, A029743.

Programs

Mathematica

t={}; Do[p = Prime[n]; If[!MemberQ[Differences[IntegerDigits[p]],0], AppendTo[t,p]], {n,70}]; t (* Jayanta Basu, May 04 2013 *)

Extensions

Offset corrected by Arkadiusz Wesolowski, Jan 12 2012