%I #16 Nov 04 2019 19:47:07
%S 19,29,41,43,47,59,61,67,79,83,89,97,109,139,149,163,167,179,181,191,
%T 193,197,199,229,239,241,263,269,281,283,293,347,349,359,367,379,383,
%U 389,397,401,409,419,421,431,433,439,443,449,457,461,463,467,479,487
%N Primes containing at least one of the following digits: 4, 6, 8, or 9.
%C Primes not in A160337.
%H Harvey P. Dale, <a href="/A329106/b329106.txt">Table of n, a(n) for n = 1..1000</a>
%e 197 is prime and it contains the digit 9.
%t Select[Prime[Range[100]],ContainsAny[IntegerDigits[#],{4,6,8,9}]&]
%Y Cf. A160337.
%K nonn,base
%O 1,1
%A _Harvey P. Dale_, Nov 04 2019
|