This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A085558 #21 Apr 13 2024 20:07:48
%S A085558 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,
%T A085558 81,84,86,88,89,90,91,94,96,98,99,100,101,102,103,104,105,106,107,108,
%U A085558 109,110,111,112,113,114,115,116,117,118,119,120,121,124,126,128,129,130
%N A085558 Numbers that have more nonprime digits than prime digits.
%t A085558 pdnpdQ[n_]:=With[{idn=IntegerDigits[n]},Count[idn,_?(PrimeQ[#]&)]<Count[idn,_?(!PrimeQ[ #]&)]]; Select[Range[0,150],pdnpdQ] (* _Harvey P. Dale_, Dec 19 2023 *)
%o A085558 (PARI) isok(n) = {my(d = if (n, digits(n), [0]), nbp = #select(x->isprime(x), d)); 2*nbp < #d;} \\ _Michel Marcus_, Feb 28 2019
%Y A085558 Cf. A084984.
%K A085558 base,easy,nonn
%O A085558 1,3
%A A085558 _Jason Earls_, Jul 04 2003
%E A085558 0 added by _Arkadiusz Wesolowski_, Jul 11 2011