%I #10 Sep 24 2022 11:24:55
%S 7,17,47,67,71,79,97,107,167,179,197,467,479,487,607,617,647,677,701,
%T 709,719,761,769,787,797,877,887,907,947,967,971,977,997,1087,1097,
%U 1117,1171,1187,1447,1471,1487,1607,1667,1697,1709,1741,1747,1777,1787,1789
%N Primes whose only prime digits are 7's.
%H Harvey P. Dale, <a href="/A179030/b179030.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[300]], MemberQ[IntegerDigits[#], 7] &&And @@ Table[FreeQ[ IntegerDigits[#], n], {n, {2, 3, 5}}] &] (* _Harvey P. Dale_, Sep 24 2022 *)
%Y Cf. A179031.
%K nonn,base
%O 1,1
%A _Lekraj Beedassy_, Jun 25 2010
%E Corrected by _Ray Chandler_, Jul 13 2010