A133783 Primes containing only digits from set {1,2,3,4,5,6}.

2, 3, 5, 11, 13, 23, 31, 41, 43, 53, 61, 113, 131, 151, 163, 211, 223, 233, 241, 251, 263, 311, 313, 331, 353, 421, 431, 433, 443, 461, 463, 521, 523, 541, 563, 613, 631, 641, 643, 653, 661, 1123, 1151, 1153, 1163, 1213, 1223, 1231, 1321, 1361, 1423, 1433

Offset

1,1

Links

Jason Bard, Table of n, a(n) for n = 1..10000

Mathematica

Select[Prime[Range[250]], Length[Intersection[IntegerDigits[ # ], {7, 8, 9, 0}]] == 0 &] (* Stefan Steinerberger, Jan 03 2008 *)

Crossrefs

Intersection of A000040 and A057436.

Intersection of A052382 and A036960.

Sequence in context: A262831 A386358 A036960 * A036958 A178317 A386086

Adjacent sequences: A133780 A133781 A133782 * A133784 A133785 A133786

Keyword

base,easy,nonn

Author

Jonathan Vos Post, Jan 02 2008

Extensions

More terms from Stefan Steinerberger, Jan 03 2008

Status

approved