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 A154386 #10 Jan 19 2019 22:45:12 %S A154386 11,19,41,61,89,101,103,107,109,113,131,139,149,151,163,167,179,181, %T A154386 191,193,197,199,211,241,269,281,311,349,389,401,409,419,421,431,439, %U A154386 443,449,461,463,467,479,487,491,499,509,541,569,599,601,607,613,617,619 %N A154386 Primes such that number of prime digits < number of nonprime digits. %C A154386 Intersection of A085558 and A000040. - Charles R Greathouse IV_, Mar 25 2010 %e A154386 101 is prime, its nonprime digits are (1, 0, 1), and 0<3 so a(6)=101. 103 is prime, its prime digit is 3, its nonprime digits are (0, 1), and 1 < 2 so a(7)=103. %p A154386 a := proc (n) local nn, s, j: nn := convert(n, base, 10): s := 0: for j to nops(nn) do if isprime(nn[j]) = false then s := s+1 else s := s-1 end if end do: if isprime(n) = true and 0 < s then n else end if end proc: seq(a(n), n = 1 .. 650); # _Emeric Deutsch_, Jan 28 2009 %K A154386 nonn,base,easy,less %O A154386 1,1 %A A154386 _Juri-Stepan Gerasimov_, Jan 08 2009