A060418 - OEIS

%I #14 Sep 25 2015 15:24:56

%S 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,

%T 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,

%U 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

%N Largest decimal digit in n-th prime.

%C a(n) = A054055(A000040(n)) = A262410(A000040(n)). - _Reinhard Zumkeller_, Sep 25 2015

%H Reinhard Zumkeller, <a href="/A060418/b060418.txt">Table of n, a(n) for n = 1..78498</a>, all primes < 10^6.

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

%o (PARI) a(n) = vecmax(digits(prime(n))); \\ _Michel Marcus_, Dec 26 2013

%o (Haskell)

%o a060418 = a054055 . a000040  -- _Reinhard Zumkeller_, Sep 25 2015

%Y Cf. A054055.

%Y Cf. A262401.

%K base,easy,nonn

%O 1,1

%A _Labos Elemer_, Apr 05 2001

%E Offset corrected to 1 by _Michel Marcus_, Dec 26 2013