%I #4 Mar 30 2012 17:34:14
%S 2,1,1,1,3,2,3,3,4,6,5,7,7,7,7,9,10,9,11,11,10,12,12,13,16,16,15,15,
%T 14,14,20,19,21,19,23,22,23,24,24,25,26,24,28,26,26,25,29,34,34,32,32,
%U 33,31,34,35,36,37,35,36,36,34,37,43,42,41,40,46,47,50,48,48,48,50,51,52
%N a(n) = Floor[Exp[(Prime[n]-n*Log[3])/n]]
%C A prime ratio set based on fitting n/Prime[n] for medium small primes.
%t a=Table[Floor[Exp[(Prime[n]-n*Log[3])/n]], {n, 1, 200}]
%K nonn
%O 1,1
%A _Roger L. Bagula_, Jun 14 2004
|