|
%I
%S 2,3,11,13,23,31,101,103,113,131,211,223,233,311,313,331,1013,1021,
%T 1031,1033,1103,1123,1201,1213,1223,1231,1301,1303,1321,2003,2011,
%U 2111,2113,2131,2203,2213,2221,2311,2333,3001,3011,3023,3121,3203,3221,3301,3313
%N Primes whose decimal representation contains only digits from the set {0,1,2,3}.
%H _Reinhard Zumkeller_, <a href="/A107715/b107715.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[500]],Max[IntegerDigits[#]]<4&] (* From Harvey P. Dale, May 09 2012 *)
%o (Haskell)
%o a107715 n = a107715_list !! (n-1)
%o a107715_list = filter ((== 1) . a010051) a007090_list
%o -- _Reinhard Zumkeller_, Aug 11 2011
%Y Cf. A036953 (primes containing digits from set {0, 1, 2}).
%Y Cf. A010051, A007090, A193890.
%K base,nonn
%O 1,1
%A _Rick L. Shepherd_, May 22 2005
|
