OFFSET
1,1
COMMENTS
The digit 3 must appear only once. - Harvey P. Dale, Oct 12 2023
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) local L, t;
L:= convert(n, base, 10);
numboccur(3, L) = 1 and convert(L, set) intersect {2, 5, 7} = {}
end proc:
select(filter, [seq(ithprime(i), i=1..1000)]); # Robert Israel, Apr 21 2021
MATHEMATICA
Select[Prime[Range[300]], DigitCount[#, 10, 3]==1&&DigitCount[#, 10, 2]== DigitCount[#, 10, 5]== DigitCount[#, 10, 7]==0&] (* Harvey P. Dale, Oct 12 2023 *)
PROG
(Python)
from sympy import sieve
def ok(p): s=str(p); return set(s)&set("2357")=={'3'} and s.count('3')==1
def aupto(limit): return [p for p in sieve.primerange(1, limit+1) if ok(p)]
print(aupto(1931)) # Michael S. Branicky, Apr 21 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Jun 25 2010
EXTENSIONS
Corrected by Ray Chandler, Jul 13 2010
STATUS
approved