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