OFFSET
1,1
COMMENTS
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
KEYWORD
base,easy,nonn
AUTHOR
Labos Elemer, Apr 05 2001
EXTENSIONS
Offset corrected to 1 by Michel Marcus, Dec 26 2013
STATUS
approved