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

Links

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

Mathematica

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

Crossrefs

Cf. A043096, A000040, A050758, A029743.

Sequence in context: A233009 A243535 A308078 * A059168 A032758 A106118

Adjacent sequences: A050754 A050755 A050756 * A050758 A050759 A050760

Keyword

nonn,base

Author

Patrick De Geest, Sep 15 1999

Extensions

Offset corrected by Arkadiusz Wesolowski, Jan 12 2012

Status

approved