A085558 Numbers that have more nonprime digits than prime digits.

0, 1, 4, 6, 8, 9, 10, 11, 14, 16, 18, 19, 40, 41, 44, 46, 48, 49, 60, 61, 64, 66, 68, 69, 80, 81, 84, 86, 88, 89, 90, 91, 94, 96, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 124, 126, 128, 129, 130

Offset: 1

Author

Jason Earls, Jul 04 2003

Keywords

• base
• easy
• nonn

Crossrefs

Cf. A084984.

Programs

Mathematica

pdnpdQ[n_]:=With[{idn=IntegerDigits[n]},Count[idn,?(PrimeQ[#]&)]<Count[idn,?(!PrimeQ[ #]&)]]; Select[Range[0,150],pdnpdQ] (* Harvey P. Dale, Dec 19 2023 *)

PARI

isok(n) = {my(d = if (n, digits(n), [0]), nbp = #select(x->isprime(x), d)); 2*nbp < #d;} \\ Michel Marcus, Feb 28 2019

Extensions

0 added by Arkadiusz Wesolowski, Jul 11 2011