%I #9 Sep 08 2022 08:46:13
%S 7,11,17,19,71,79,97,179,191,197,199,719,797,911,919,971,977,991,997,
%T 1117,1171,1777,1979,1997,1999,7177,7717,7919,9199,9719,9791,11117,
%U 11119,11171,11177,11197,11717,11719,11777,11779,11971,17117,17191,17791,17911
%N Primes that contain only the digits (1, 7, 9).
%C A020455, A020457 and A020471 are subsequences.
%C Subsequence of A030096.
%H Alois P. Heinz, <a href="/A260893/b260893.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Prime[Range[3 10^3]], Complement[IntegerDigits[#], {1, 7, 9}] == {}&]
%o (Magma) [p: p in PrimesUpTo(3*10^4) | Set(Intseq(p)) subset [1, 7, 9]];
%Y Cf. similar sequences listed in A260889.
%Y Cf. A000040, A020455, A020457, A020471, A030096.
%K nonn,easy,base
%O 1,1
%A _Vincenzo Librandi_, Aug 11 2015