A155045 Primes with distinct odd digits.

3, 5, 7, 13, 17, 19, 31, 37, 53, 59, 71, 73, 79, 97, 137, 139, 157, 173, 179, 193, 197, 317, 359, 379, 397, 571, 593, 719, 739, 751, 937, 953, 971, 1579, 1597, 1753, 1759, 1973, 3517, 3571, 3719, 3917, 5179, 5197, 5791, 7159, 7193, 7351, 7591, 7951, 9137, 9157

Offset: 1

Author

Juri-Stepan Gerasimov, Jan 19 2009

Keywords

• nonn
• base
• fini
• full

Comments

Odd digit = 1, 3, 5, 7 or 9.

Links

• Jinyuan Wang, Table of n, a(n) for n = 1..88

Crossrefs

Cf. A000040, A141468.

Programs

Mathematica

Select[Prime[Range[1200]],And@@OddQ[IntegerDigits[#]]&&Max[DigitCount[ #]]==1&] (* Harvey P. Dale, Dec 15 2011 *)

Extensions

Corrected (397, 3917, 9173 inserted, 9319 removed) by R. J. Mathar, May 05 2010