|
%I #9 Sep 08 2022 08:46:13
%S 3,7,37,67,73,337,367,373,673,677,733,773,3373,3637,3673,3677,3733,
%T 3767,6337,6367,6373,6637,6673,6733,6737,6763,7333,7673,33377,33637,
%U 33767,33773,36373,36637,36677,36767,37337,37363,37633,37663,63337,63367,63377,63667
%N Primes that contain only the digits (3, 6, 7).
%C A020463 and A020469 are subsequences.
%H Alois P. Heinz, <a href="/A260380/b260380.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Prime[Range[2 10^4]], Complement[IntegerDigits[#], {3, 6, 7}]=={} &]
%t Select[Flatten[Table[FromDigits/@Tuples[{3,6,7},n],{n,5}]],PrimeQ] (* _Harvey P. Dale_, Apr 13 2022 *)
%o (Magma) [p: p in PrimesUpTo(2*10^5) | Set(Intseq(p)) subset [3, 6, 7]];
%Y Cf. similar sequences listed in A260378.
%Y Cf. A020463, A020469.
%K nonn,easy,base
%O 1,1
%A _Vincenzo Librandi_, Aug 01 2015
|
