A386133 - OEIS

%I #6 Jul 17 2025 19:36:42

%S 5,7,11,17,19,59,71,79,97,151,157,179,191,197,199,557,571,577,599,719,

%T 751,757,797,911,919,971,977,991,997,1117,1151,1171,1511,1559,1571,

%U 1579,1597,1759,1777,1951,1979,1997,1999,5119,5171,5179,5197,5519,5557,5591

%N Primes having only {1, 5, 7, 9} as digits.

%H Jason Bard, <a href="/A386133/b386133.txt">Table of n, a(n) for n = 1..10000</a>

%H <a href="/index/Pri#PrimesWithDigits">Index to entries for primes with digits in a given set</a>

%t Flatten[Table[Select[FromDigits /@ Tuples[{1, 5, 7, 9}, n], PrimeQ], {n, 7}]]

%o (Magma) [p: p in PrimesUpTo(10^6) | Set(Intseq(p)) subset [1, 5, 7, 9]];

%o (Python) print(list(islice(primes_with("1579"), 41))) # uses function/imports in A385776

%o (PARI) primes_with(, 1, [1, 5, 7, 9]) \\ uses function in A385776

%Y Supersequence of A260828, A260831, A260893, A385781.

%Y Cf. A000040, A385776.

%K nonn,base,easy

%O 1,1

%A _Jason Bard_, Jul 17 2025