OFFSET
1,3
MATHEMATICA
pdnpdQ[n_]:=With[{idn=IntegerDigits[n]}, Count[idn, _?(PrimeQ[#]&)]<Count[idn, _?(!PrimeQ[ #]&)]]; Select[Range[0, 150], pdnpdQ] (* Harvey P. Dale, Dec 19 2023 *)
PROG
(PARI) isok(n) = {my(d = if (n, digits(n), [0]), nbp = #select(x->isprime(x), d)); 2*nbp < #d; } \\ Michel Marcus, Feb 28 2019
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls, Jul 04 2003
EXTENSIONS
0 added by Arkadiusz Wesolowski, Jul 11 2011
STATUS
approved