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,3

Links

Table of n, a(n) for n=1..63.

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

Cf. A084984.

Sequence in context: A320985 A047748 A299540 * A084984 A104499 A338941

Adjacent sequences: A085555 A085556 A085557 * A085559 A085560 A085561

Keyword

base,easy,nonn

Author

Jason Earls, Jul 04 2003

Extensions

0 added by Arkadiusz Wesolowski, Jul 11 2011

Status

approved