|
%I #10 May 10 2018 09:15:39
%S 0,1,0,1,4,1,2,7,2,3,10,3,3,12,6,2,13,9,1,14,12,0,15,16,1,14,21,4,13,
%T 26,7,12,31,10,10,33,15,7,32,20,4,31,25,1,30,31,2,27,38,7,24,45,12,21,
%U 52,17,17,54,24,12,51,31,7,48,38,2,45,46,3,40,55,10,35,64,17,30,73,24
%N a(n) = number of positive integers k, k < n, where |the sine of k radians| is < |the sine of n radians|. Also, a(n) = number of positive integers k, k < n, where |the cosine of k radians| is > |the cosine of n radians|.
%H Diana Mecum, <a href="/A141332/b141332.txt">Table of n, a(n) for n = 1..1000</a>
%t Total/@Table[If[Abs[Sin[n]]<Abs[Sin[k]],1,0],{k,80},{n,k-1}] (* _Harvey P. Dale_, May 10 2018 *)
%Y Cf. A141330, A141331, A141333, A141334, A141335.
%K nonn
%O 1,5
%A _Leroy Quet_, Jun 25 2008
%E More terms from _Diana L. Mecum_, Jul 18 2008
|
