A155058 Primes with odd largest digit.

3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 47, 53, 59, 67, 71, 73, 79, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 167, 173, 179, 191, 193, 197, 199, 223, 227, 229, 233, 239, 251, 257, 269, 271, 277, 293, 307, 311, 313, 317, 331, 337, 347

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..2000

Example

181 is prime but has 8 as its largest digit, so 181 is not a term.
191 is prime and has 9 as its largest digit, so 191 is a term.

Mathematica

Select[Prime[Range[100]], OddQ[Max[IntegerDigits[#]]]&] (* Harvey P. Dale, Jun 20 2023 *)

Prog

(PARI) isok(p) = isprime(p) && (vecmax(digits(p)) % 2); \\ Michel Marcus, Feb 18 2021

Crossrefs

Cf. A000040, A154767.

Sequence in context: A225670 A165255 A223036 * A007703 A002556 A376206

Adjacent sequences: A155055 A155056 A155057 * A155059 A155060 A155061

Keyword

nonn,base,less

Author

Juri-Stepan Gerasimov, Jan 19 2009

Extensions

181 replaced with 191 by Ray Chandler, Jan 31 2009

Status

approved