|
%I #12 Sep 08 2022 08:46:13
%S 3,5,53,353,563,653,3533,5333,5563,5653,6353,6553,6563,6653,33353,
%T 33533,33563,35353,35363,35533,36353,36563,36653,53353,53633,53653,
%U 55333,55633,55663,56333,56533,56633,56663,63353,63533,65353,65563,65633,66533,66553
%N Primes that contain only the digits (3, 5, 6).
%C A020462 is subsequence.
%H Alois P. Heinz, <a href="/A260225/b260225.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Prime[Range[3 10^4]], Complement[IntegerDigits[#], {3, 5, 6}]=={} &]
%t Table[Select[FromDigits/@Tuples[{3,5,6},n],PrimeQ],{n,5}]//Flatten (* _Harvey P. Dale_, Jan 23 2018 *)
%o (Magma) [p: p in PrimesUpTo(70000) | Set(Intseq(p)) subset [3, 5, 6]];
%Y Cf. similar sequences listed in A260223.
%Y Cf. A020462.
%K nonn,base
%O 1,1
%A _Vincenzo Librandi_, Jul 21 2015
|
