|
%I #7 Mar 30 2012 18:39:03
%S 1,3,4,7,9,13,16,20,25,30,36,42,49,56,64,72,81,90,100,110,120,132,143,
%T 155,168,181,195,209,224,239,255,271,288,305,323,341,359,379,398,419,
%U 439,460,482,504,527,550,574,598,623,648,674,700,727,754,781,810,838
%N Least k such that Sum( Sin(1/Sqrt(i)) i=1..k) > n.
%F 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
%t f[n_] := Block[{k = 1, s = 0}, While[s < n, s = s + Sin[1/Sqrt[k]]; k++ ]; k]; Table[ f[n], {n, 0, 60} ]
%K nonn
%O 0,2
%A _Robert G. Wilson v_, Aug 01 2002
|
