%I #14 Dec 18 2022 02:31:38

%S 1,2,3,4,5,6,7,9,10,10,11,13,13,15,16,17,17,20,19,20,21,22,23,25,26,

%T 27,27,28,29,30,34,35,36,36,38,39,41,42,43,44,46,46,43,49,50,51,47,49,

%U 50,50,51,52,53,55,56,57,58,58,60,61,62,63,66,66,67,67,71,72,73,74,75,76

%N Let g[n]=Floor[Prime[n]-n)/((n-PrimePi[n])], then a(n) = Floor[(Prime[n]+g[n]*PrimePi[n])/(1+g[n]).

%t g[n_] = Floor[(Prime[n] - n)/(n - PrimePi[n])];

%t a = Table[Floor[(Prime[n] + g[n]*PrimePi[n])/(1 + g[n])], {n, 1, 200}]

%K nonn,less

%O 1,2

%A _Roger L. Bagula_, Jan 04 2004

%E Edited by _N. J. A. Sloane_, Apr 28 2006