A108383 Primes p such that p's set of distinct digits is {1,3,9}.

139, 193, 1193, 1319, 1399, 1913, 1931, 1933, 1993, 3119, 3191, 3319, 3391, 3911, 3919, 3931, 9133, 9311, 9319, 9391, 9931, 11393, 11399, 11933, 11939, 13339, 13399, 13913, 13931, 13933, 13999, 19139, 19319, 19333, 19391, 19913, 19993, 31139

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

Select[(Table[FromDigits/@Tuples[{1, 3, 9}, n], {n, 3, 5}]//Flatten), PrimeQ[#] && Min[ DigitCount[#, 10, {1, 3, 9}]]>0&] (* Harvey P. Dale, Apr 09 2017 *)

Crossrefs

Cf. A108382 ({1, 3, 7}), A108384 ({1, 7, 9}), A108385 ({3, 7, 9}), A108386 ({1, 3, 7, 9}), A030096 (Primes whose digits are all odd).

Sequence in context: A095649 A016067 A142524 * A027867 A140019 A107206

Adjacent sequences: A108380 A108381 A108382 * A108384 A108385 A108386

Keyword

base,nonn

Author

Rick L. Shepherd, Jun 01 2005

Status

approved