A249063 a(n) = floor(cos(n)*PrimePi(n)).

0, -1, -2, -2, 0, 2, 3, -1, -4, -4, 0, 4, 5, 0, -5, -6, -2, 4, 7, 3, -5, -8, -5, 3, 8, 5, -3, -9, -8, 1, 10, 9, -1, -10, -10, -2, 9, 11, 3, -9, -13, -6, 7, 13, 7, -7, -15, -10, 4, 14, 11, -3, -15, -14, 0, 13, 14, 1, -14, -17, -5, 12, 17, 7, -11, -18, -10, 8

Offset

1,3

Links

Table of n, a(n) for n=1..68.

Mathematica

Table[Floor[Cos[n] PrimePi[n]], {n, 1, 40}]

Prog

(Magma) [Floor(Cos(n)*#PrimesUpTo(n)): n in [1..80]]; // Vincenzo Librandi, Oct 20 2014

Crossrefs

Cf. A000720.

Sequence in context: A080769 A328903 A143539 * A362687 A341879 A099307

Adjacent sequences: A249060 A249061 A249062 * A249064 A249065 A249066

Keyword

sign

Author

Oussama Moutaoikil, Oct 20 2014

Extensions

More terms from Vincenzo Librandi, Oct 20 2014

Status

approved