login
A060418
Largest decimal digit in n-th prime.
5
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
KEYWORD
base,easy,nonn
AUTHOR
Labos Elemer, Apr 05 2001
EXTENSIONS
Offset corrected to 1 by Michel Marcus, Dec 26 2013
STATUS
approved