login
a(n) = abs( Re( floor( -(Pi - 2*n*Pi*Log(n) + sqrt(Pi*n*(4*i*n + 8*Pi)) ) / (2*Pi) ) ) ), where i = sqrt(-1).
1

%I #11 Jan 13 2017 02:28:20

%S 2,2,0,2,4,6,8,11,14,17,20,23,26,29,32,36,39,43,46,50,53,57,61,64,68,

%T 72,76,80,84,88,92,96,100,104,108,112,117,121,125,129,134,138,142,147,

%U 151,155,160,164,169,173,178,182,187,192,196,201,205,210,215,219,224,229

%N a(n) = abs( Re( floor( -(Pi - 2*n*Pi*Log(n) + sqrt(Pi*n*(4*i*n + 8*Pi)) ) / (2*Pi) ) ) ), where i = sqrt(-1).

%H G. C. Greubel, <a href="/A094671/b094671.txt">Table of n, a(n) for n = 1..5000</a>

%t Table[ Abs[ Re[ Floor[ -(Pi - 2 n*Pi* Log[n] + Sqrt[n*Pi (4n*I + 8Pi)])/(2Pi)]]], {n, 62}]

%K nonn,less

%O 1,1

%A _Roger L. Bagula_, Jun 07 2004