%I #12 Sep 08 2022 08:46:19
%S 41,43,47,149,241,347,349,401,409,419,421,431,433,439,443,449,457,461,
%T 463,467,479,487,491,499,541,547,641,643,647,743,941,947,1049,1249,
%U 1409,1423,1427,1429,1433,1439,1447,1451,1453,1459,1471,1481,1483,1487,1489
%N Primes containing a digit 4.
%C Subsequence of A011534 and A062669.
%H Amiram Eldar, <a href="/A284290/b284290.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[1500], PrimeQ[#] && MemberQ[IntegerDigits[#], 4] &] (* _Amiram Eldar_, Nov 09 2019 *)
%o (Magma) [p: p in PrimesUpTo(10000) | 4 in Intseq(p)]
%Y Cf. Primes containing a digit k for k = 0 - 9: A056709 (k = 0), A208270 (k = 1), A208272 (k = 2), A212525 (k = 3), A284290 (k = 4), A257667 (k = 5), A284291 (k = 6), A257668 (k = 7), A284292 (k = 8), A106093 (k = 9).
%K base,nonn
%O 1,1
%A _Jaroslav Krizek_, Mar 24 2017