1,1

Table of n, a(n) for n=1..105.

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

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

Cf. A054055.

Sequence in context: A074462 A113656 A007652 * A199975 A086355 A053666

Adjacent sequences: A060415 A060416 A060417 * A060419 A060420 A060421

base,easy,nonn

Labos Elemer, Apr 05 2001

Offset corrected to 1 by Michel Marcus, Dec 26 2013

approved