login
A246451
Nonnegative integers k satisfying sin(k)*cos(k+1) > 0.
4
13, 16, 19, 22, 35, 38, 41, 44, 57, 60, 63, 66, 79, 82, 85, 88, 101, 104, 107, 110, 123, 126, 129, 132, 145, 148, 151, 154, 167, 170, 173, 176, 189, 192, 195, 198, 211, 214, 217, 220, 233, 236, 239, 242, 255, 258, 261, 264, 277, 280, 283, 286, 299, 302, 305
OFFSET
1,1
LINKS
MATHEMATICA
z = 200;
Select[Range[0, z], Sin[#] Cos[# + 1] < 0 &] (* A246450 *)
Select[Range[0, z], Sin[#] Cos[# + 1] > 0 &] (* A246451 *)
CROSSREFS
Cf. A246450 (complement of A246451), A246443.
Sequence in context: A295744 A348787 A064805 * A295327 A179202 A159975
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Aug 26 2014
STATUS
approved