%I #9 Apr 30 2023 16:27:42
%S 2,3,5,11,13,23,31,41,43,53,61,113,131,151,163,211,223,233,241,251,
%T 263,311,313,331,353,421,431,433,443,461,463,521,523,541,563,613,631,
%U 641,643,653,661,1123,1151,1153,1163,1213,1223,1231,1321,1361,1423,1433
%N Primes containing only digits from set (1,2,3,4,5,6).
%C 0-free subset of A036960. "Dice Primes": the ordered sequence of prime numbers whose digits can be generated by successively throwing a regular die with the numbers 1,2,...,6. There are n^6 elements of A057436 with n digits. Restricting to primes, we have 3 with 1 digit, 8 with 2 digits, 23 with 3 digits.
%F A000040 INTERSECTION A057436. A052382 INTERSECTION A036960.
%t Select[Prime[Range[250]], Length[Intersection[IntegerDigits[ # ], {7, 8, 9, 0}]] == 0 &] (* _Stefan Steinerberger_, Jan 03 2008 *)
%Y Cf. A000040, A036960, A052382, A057436.
%K base,easy,nonn
%O 1,1
%A _Jonathan Vos Post_, Jan 02 2008
%E More terms from _Stefan Steinerberger_, Jan 03 2008