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,1

Links

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

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

Formula

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

Mathematica

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

Prog

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

Crossrefs

Cf. A000503, A000040, A088306, A249836.

Sequence in context: A274716 A245434 A305100 * A079668 A144211 A260510

Adjacent sequences: A051509 A051510 A051511 * A051513 A051514 A051515

Keyword

sign

Author

N. J. A. Sloane

Status

approved