A051512 a(n) = floor(tan(prime(n))).

-3, -1, -4, 0, -226, 0, 3, 0, 1, 0, -1, -1, 0, -2, -1, -1, -1, 3, 1, -4, 0, 0, 3, 1, -1, 0, -1, 0, -2, -1, 4, -2, -3, 0, 4, 0, -1, -1, 0, 0, -1, -3, -1, 4, -2, 1, 0, -1, 1, -1, 0, 0, -2, -1, -1, -2, -3, 1, 0, 5, 0, 1, -2, -1, -3, -1, 2, 1, 6, 0, 2, 1, -1, -2, -3, -1, -1, 2, -3, 0, 2, 0, 0, -1, -2, 0, -1, 9, -2, 2, -2, 10

Offset: 1

Author

N. J. A. Sloane

Keywords

• sign

Links

• Matt Parker, What is the biggest tangent of a prime?, Channel Stand-up Maths, YouTube, Aug 19 2020.

Crossrefs

Cf. A000503, A000040, A088306, A249836.

Programs

Mathematica

Table[Floor[Tan[Prime[n]]], {n, 100}] (* Wesley Ivan Hurt, Mar 28 2015 *)

PARI

apply( A051512(n)=tan(prime(n))\1, [1..77]) \\ M. F. Hasler, Sep 10 2020

Formula

a(n) = A000503(prime(n)), i.e., this A051512 = A000503 o A000040. - M. F. Hasler, Sep 10 2020