A094671 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).

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, 72, 76, 80, 84, 88, 92, 96, 100, 104, 108, 112, 117, 121, 125, 129, 134, 138, 142, 147, 151, 155, 160, 164, 169, 173, 178, 182, 187, 192, 196, 201, 205, 210, 215, 219, 224, 229

Offset

1,1

Links

G. C. Greubel, Table of n, a(n) for n = 1..5000

Mathematica

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

Crossrefs

Sequence in context: A006462 A278483 A008281 * A354826 A390546 A202015

Adjacent sequences: A094668 A094669 A094670 * A094672 A094673 A094674

Keyword

nonn,less

Author

Roger L. Bagula, Jun 07 2004

Status

approved