OFFSET
1,1
COMMENTS
These primes contain all digits except for 2 and 5.
Subsequence of primes that are in A361780.
MAPLE
filter:= proc(n) convert(convert(n, base, 10), set) intersect {2, 5} = {} end proc:
select(filter, [seq(ithprime(i), i=1..1000)]); # Robert Israel, Mar 26 2023
MATHEMATICA
Select[Prime[Range[100]], AllTrue[IntegerDigits[#], ! MemberQ[{2, 5}, #1] &] &] (* Amiram Eldar, Mar 26 2023 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Bernard Schott, Mar 26 2023
STATUS
approved