A179030 Primes whose only prime digits are 7's.

7, 17, 47, 67, 71, 79, 97, 107, 167, 179, 197, 467, 479, 487, 607, 617, 647, 677, 701, 709, 719, 761, 769, 787, 797, 877, 887, 907, 947, 967, 971, 977, 997, 1087, 1097, 1117, 1171, 1187, 1447, 1471, 1487, 1607, 1667, 1697, 1709, 1741, 1747, 1777, 1787, 1789

Offset

1,1

Links

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

Mathematica

 Select[Prime[Range[300]], MemberQ[IntegerDigits[#], 7] &&And @@ Table[FreeQ[ IntegerDigits[#], n], {n, {2, 3, 5}}] &] (* Harvey P. Dale, Sep 24 2022 *)

Crossrefs

Cf. A179031.

Sequence in context: A253973 A200080 A347124 * A179031 A107178 A061722

Adjacent sequences: A179027 A179028 A179029 * A179031 A179032 A179033

Keyword

nonn,base

Author

Lekraj Beedassy, Jun 25 2010

Extensions

Corrected by Ray Chandler, Jul 13 2010

Status

approved