login
A179030
Primes whose only prime digits are 7's.
2
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
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
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Jun 25 2010
EXTENSIONS
Corrected by Ray Chandler, Jul 13 2010
STATUS
approved