login
Primes that contain only the digits (1, 7, 8).
2

%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