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

Author

Jonathan Vos Post, Jan 02 2008

Keywords

• base
• easy
• nonn

Links

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

Crossrefs

Intersection of A000040 and A057436.

Intersection of A052382 and A036960.

Programs

Mathematica

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

Extensions

More terms from Stefan Steinerberger, Jan 03 2008