A155071 Primes with two odd digits.
11, 13, 17, 19, 31, 37, 53, 59, 71, 73, 79, 97, 101, 103, 107, 109, 127, 149, 163, 167, 181, 211, 233, 239, 251, 257, 271, 277, 293, 307, 347, 349, 367, 383, 389, 419, 431, 433, 439, 457, 479, 491, 499, 503, 509, 521, 523, 541, 547, 563, 569, 587, 613, 617
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A104638.
Programs
-
Mathematica
Select[Prime[Range[200]],Count[IntegerDigits[#],?OddQ]==2&] (* _Harvey P. Dale, Jul 22 2025 *)
Extensions
Definition clarified, keyword:fini removed, 413 replaced by 419 - R. J. Mathar, May 05 2010
Erroneous comment deleted by Harvey P. Dale, Jul 22 2025