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

Author

Clark Kimberling, Dec 29 2010

Keywords

• nonn

Comments

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

Crossrefs

Cf. A183162.

Programs

Mathematica

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