A072441 Least k such that Sum( Sin(1/Sqrt(i)) i=1..k) > n.

1, 3, 4, 7, 9, 13, 16, 20, 25, 30, 36, 42, 49, 56, 64, 72, 81, 90, 100, 110, 120, 132, 143, 155, 168, 181, 195, 209, 224, 239, 255, 271, 288, 305, 323, 341, 359, 379, 398, 419, 439, 460, 482, 504, 527, 550, 574, 598, 623, 648, 674, 700, 727, 754, 781, 810, 838

Offset

0,2

Links

Table of n, a(n) for n=0..56.

Formula

a(n) is asymptotic to n^2/4. Does lim n -> infinity ABS(4*a(n)-(n+1)^2)/n exist? - Benoit Cloitre, Aug 16 2002

Mathematica

f[n_] := Block[{k = 1, s = 0}, While[s < n, s = s + Sin[1/Sqrt[k]]; k++ ]; k]; Table[ f[n], {n, 0, 60} ]

Crossrefs

Sequence in context: A053099 A073273 A247835 * A152032 A004652 A061568

Adjacent sequences: A072438 A072439 A072440 * A072442 A072443 A072444

Keyword

nonn

Author

Robert G. Wilson v, Aug 01 2002

Status

approved