|
%I #20 Sep 23 2020 03:27:46
%S 449,499,4999,9949,44449,49499,49999,94949,94999,444449,994949,999499,
%T 4444949,4449449,4944949,4949449,4999949,4999999,9444949,9494999,
%U 9944449,9994499,44444999,44499449,44944499,44994949,49444949,49444999,49494499
%N Primes that contain digits 4 and 9 only.
%H Alois P. Heinz, <a href="/A020466/b020466.txt">Table of n, a(n) for n = 1..20000</a> (first 1000 terms from Vincenzo Librandi)
%H James Maynard and Brady Haran, <a href="https://www.youtube.com/watch?v=eeoBCS7IEqs">Primes without a 7</a>, Numberphile video (2019)
%t Flatten[Table[Select[FromDigits/@Tuples[{4,9},n],PrimeQ],{n,8}]] (* _Vincenzo Librandi_, Jul 27 2012 *)
%o (PARI) is(N)=isprime(N)&&!#setminus(Set(digits(N)), [4,9]) \\ _M. F. Hasler_, Sep 22 2020
%Y Cf. A036319 (composite numbers having all their prime factors in this sequence).
%K nonn,base
%O 1,1
%A _David W. Wilson_
|
