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