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

Author

Labos Elemer, Apr 05 2001

Keywords

• base
• easy
• nonn

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.

Crossrefs

Cf. A054055.

Cf. A262401.

Programs

Haskell

a060418 = a054055 . a000040  -- Reinhard Zumkeller, Sep 25 2015

Mathematica

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

PARI

a(n) = vecmax(digits(prime(n))); \\ Michel Marcus, Dec 26 2013

Extensions

Offset corrected to 1 by Michel Marcus, Dec 26 2013