A154761 Primes without {1, 9} as digits.

2, 3, 5, 7, 23, 37, 43, 47, 53, 67, 73, 83, 223, 227, 233, 257, 263, 277, 283, 307, 337, 347, 353, 367, 373, 383, 433, 443, 457, 463, 467, 487, 503, 523, 547, 557, 563, 577, 587, 607, 643, 647, 653, 673, 677, 683, 727, 733, 743, 757, 773, 787, 823, 827, 853

Offset: 1

Author

Juri-Stepan Gerasimov, Jan 15 2009

Keywords

• nonn
• base

Links

• Jason Bard, Table of n, a(n) for n = 1..10000
• Index to entries for primes with digits in a given set

Crossrefs

Cf. A000040, A385776, A386320 - A386358.

Programs

Maple

no19 := proc(n) local d ; for d in convert(n,base,10) do if d in {1,9} then RETURN(false) ; fi; od: RETURN(true) ; end: for n from 1 to 400 do p := ithprime(n) ; if no19(p) then printf("%d,",p) ; fi; od: # R. J. Mathar, Jan 18 2009

Mathematica

Select[Prime[Range[120]], DigitCount[#, 10, 1] == 0 && DigitCount[#, 10, 9] == 0 &] (* Jason Bard, Jul 20 2025 *)

Python

print(list(islice(primes_with("02345678"), 41))) # uses function/imports in A385776

Extensions

443 inserted by R. J. Mathar, Jan 18 2009