%I #12 Sep 08 2022 08:46:13
%S 7,11,17,71,181,787,811,877,881,887,1117,1171,1181,1187,1777,1787,
%T 1811,1871,1877,7177,7187,7717,7817,7877,8111,8117,8171,8887,11117,
%U 11171,11177,11717,11777,11887,17117,17881,18181,18787,71171,71711,71777,71881,71887
%N Primes that contain only the digits (1, 7, 8).
%C A020455, A020456 and A020470 are subsequences.
%H Alois P. Heinz, <a href="/A260892/b260892.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Prime[Range[2 10^5]], Complement[IntegerDigits[#], {1, 7, 8}] == {} &]
%o (Magma) [p: p in PrimesUpTo(2*10^5) | Set(Intseq(p)) subset [1, 7, 8]];
%Y Cf. similar sequences listed in A260889.
%Y Cf. A000040, A020455, A020456, A020470.
%K nonn,easy,base
%O 1,1
%A _Vincenzo Librandi_, Aug 07 2015