A183199 Least integer k such that Floor(k*f(n+1))>k*f(n), where f(n)=(n^2)/(1+n^2).

3, 6, 11, 18, 27, 38, 51, 66, 83, 102, 123, 146, 171, 198, 227, 258, 291, 326, 363, 402, 443, 486, 531, 578, 627, 678, 731, 786, 843, 902, 963, 1026, 1091, 1158, 1227, 1298, 1371, 1446, 1523, 1602, 1683, 1766, 1851, 1938, 2027, 2118, 2211, 2306, 2403, 2502

Offset

1,1

Comments

Appears to be essentially the same as A102305, A059100 and A010000. - R. J. Mathar, Jun 07 2011

Links

Table of n, a(n) for n=1..50.

Mathematica

Table[k=1; While[Floor[k*((n+1)^2)/(1+(n+1)^2)]<=k*(n^2)/(1+(n^2)), k++]; k, {n, 100}]

Crossrefs

Cf. A183162.

Sequence in context: A140235 A224214 A010000 * A172046 A014125 A147456

Adjacent sequences: A183196 A183197 A183198 * A183200 A183201 A183202

Keyword

nonn

Author

Clark Kimberling, Dec 29 2010

Status

approved