%I A072442
%S A072442 1,3,4,5,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,
%T A072442 28,29,30,31,32,33,34,35,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,
%U A072442 52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74
%N A072442 Least k such that Sum( Cos(1/Sqrt(i)) i=1..k) > n.
%C A072442 The complement of this sequence is 2,6,36 & 260, for all vaules up to 
               1000.
%t A072442 f[n_] := Block[{k = 1, s = 0}, While[s < n, s = s + Cos[1/Sqrt[k]]; k++ 
               ]; k]; Table[ f[n], {n, 0, 60} ]
%Y A072442 Sequence in context: A071054 A033545 A055495 this_sequence A063992 A039233 
               A075748
%Y A072442 Adjacent sequences: A072439 A072440 A072441 this_sequence A072443 A072444 
               A072445
%K A072442 nonn
%O A072442 0,2
%A A072442 Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 01 2002