OFFSET
1,1
EXAMPLE
443 is prime and 443 has two 4's and one 3 in its decimal expansion, hence 443 is a term.
MATHEMATICA
simQ[n_] := AllTrue[Tally @ IntegerDigits[n], EvenQ[Plus @@ #] &]; Select[Prime[Range[300]], simQ] (* Amiram Eldar, Jul 19 2022 *)
PROG
(PARI) issimber(m) = my(d=digits(m), s=Set(d)); for (i=1, #s, if (#select(x->(x==s[i]), d) % 2 != (s[i] % 2), return (0))); return (1); \\ A333369
isok(m) = isprime(m) && issimber(m); \\ Michel Marcus, Jul 19 2022
(Python)
from itertools import count, islice
from sympy import isprime
def A355853_gen(startvalue=1): # generator of terms
return filter(lambda n:not any((str(n).count(d)^int(d))&1 for d in set(str(n))) and isprime(n), count(max(startvalue, 1)))
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Bernard Schott, Jul 19 2022
EXTENSIONS
Extended by Michel Marcus, Jul 19 2022
STATUS
approved