A154386 Primes such that number of prime digits < number of nonprime digits.

11, 19, 41, 61, 89, 101, 103, 107, 109, 113, 131, 139, 149, 151, 163, 167, 179, 181, 191, 193, 197, 199, 211, 241, 269, 281, 311, 349, 389, 401, 409, 419, 421, 431, 439, 443, 449, 461, 463, 467, 479, 487, 491, 499, 509, 541, 569, 599, 601, 607, 613, 617, 619

Offset: 1

Author

Juri-Stepan Gerasimov, Jan 08 2009

Keywords

• nonn
• base
• easy
• less

Comments

Intersection of A085558 and A000040. - Charles R Greathouse IV_, Mar 25 2010

Examples

			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.
		

Programs

Maple

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