%I #15 Sep 08 2022 08:46:02
%S 2,3,7,23,37,73,223,227,233,277,337,373,727,733,773,2237,2273,2333,
%T 2377,2777,3323,3373,3727,3733,7237,7333,7723,7727,22273,22277,22727,
%U 22777,23227,23327,23333,23773,27277,27337,27733,27737,27773,32233,32237,32323
%N Primes that contain only the digits (2, 3, 7).
%C The digits are prime numbers excluding 5.
%H Vincenzo Librandi, <a href="/A214704/b214704.txt">Table of n, a(n) for n = 1..1000</a>
%t Flatten[Table[Select[FromDigits/@Tuples[{2,3,7},n],PrimeQ],{n,6}]]
%o (Magma) [p: p in PrimesUpTo(80000) | Set(Intseq(p)) subset [2,3,7]];
%Y Subsequence of A019546.
%Y Cf. A087363 (primes with only prime digits excluding 2).
%K nonn,base,easy
%O 1,1
%A _Vincenzo Librandi_, Jul 28 2012
|