|
%I #10 Sep 08 2022 08:45:03
%S 2,3,11,13,23,31,113,131,211,223,233,311,313,331,1123,1213,1223,1231,
%T 1321,2111,2113,2131,2213,2221,2311,2333,3121,3221,3313,3323,3331,
%U 11113,11131,11213,11311,11321,12113,12211,12323,13121,13313,13331
%N Primes containing digits 1, 2, 3 only.
%H Marius A. Burtea, <a href="/A062350/b062350.txt">Table of n, a(n) for n = 1..2610</a>
%t Select[Prime[Range[2 10^4]], Complement[IntegerDigits[#], {1, 2, 3}]=={}&] (* _Vincenzo Librandi_, Jan 16 2020 *)
%o (Magma) [p: p in PrimesUpTo(25000) | Intseq(p) subset {1,2,3}]; // _Vincenzo Librandi_, Jan 16 2020
%K nonn,base,easy
%O 1,1
%A _Amarnath Murthy_, Jun 23 2001
%E More terms from Larry Reeves (larryr(AT)acm.org), Jul 06 2001
%E Offset 1 from _Michel Marcus_, Jan 16 2020
|
