%I #12 Sep 12 2013 02:55:17

%S 0,1,1,1,2,2,2,2,3,3,3,3,3,3,3,3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,

%T 5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,

%U 5,5,5,5,5,5,5,5,5,5,5,6

%N [ log(n-th prime) ].

%t Table[Floor[Log[Prime[n]]], {n, 80}] (* _Alonso del Arte_, Sep 11 2013 *)

%o (PARI) a(n) = floor(log(prime(n))); \\ _Michel Marcus_, Sep 11 2013

%K nonn,easy

%O 1,5

%A _N. J. A. Sloane_.