A060418 Largest decimal digit in n-th prime.

2, 3, 5, 7, 1, 3, 7, 9, 3, 9, 3, 7, 4, 4, 7, 5, 9, 6, 7, 7, 7, 9, 8, 9, 9, 1, 3, 7, 9, 3, 7, 3, 7, 9, 9, 5, 7, 6, 7, 7, 9, 8, 9, 9, 9, 9, 2, 3, 7, 9, 3, 9, 4, 5, 7, 6, 9, 7, 7, 8, 8, 9, 7, 3, 3, 7, 3, 7, 7, 9, 5, 9, 7, 7, 9, 8, 9, 9, 4, 9, 9, 4, 4, 4, 9, 4, 9, 7, 6, 6, 7, 9, 8, 9, 9, 5, 9, 5, 5, 5, 7, 7, 6, 9, 7

Offset

1,1

Comments

a(n) = A054055(A000040(n)) = A262410(A000040(n)). - Reinhard Zumkeller, Sep 25 2015

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..78498, all primes < 10^6.

Mathematica

Table[Max[IntegerDigits[Prime[w]]], {w, 1, 1000}]

Prog

(PARI) a(n) = vecmax(digits(prime(n))); \\ Michel Marcus, Dec 26 2013
(Haskell)
a060418 = a054055 . a000040  -- Reinhard Zumkeller, Sep 25 2015

Crossrefs

Cf. A054055.

Cf. A262401.

Sequence in context: A074462 A113656 A007652 * A199975 A086355 A053666

Adjacent sequences: A060415 A060416 A060417 * A060419 A060420 A060421

Keyword

base,easy,nonn

Author

Labos Elemer, Apr 05 2001

Extensions

Offset corrected to 1 by Michel Marcus, Dec 26 2013

Status

approved