A000503 a(n) = floor(tan(n)).

0, 1, -3, -1, 1, -4, -1, 0, -7, -1, 0, -226, -1, 0, 7, -1, 0, 3, -2, 0, 2, -2, 0, 1, -3, -1, 1, -4, -1, 0, -7, -1, 0, -76, -1, 0, 7, -1, 0, 3, -2, 0, 2, -2, 0, 1, -3, -1, 1, -4, -1, 0, -7, -1, 0, -46, -1, 0, 8, -1, 0, 3, -2, 0, 2, -2, 0, 1, -3, -1, 1, -4, -1, 0, -6, -1, 0, -33, -1, 0, 9, -1, 0, 3, -2, 0, 2, -2, 0, 1, -2, -1, 1, -3, -1, 0, -6, -1, 0, -26

Offset

0,3

Comments

Every integer appears infinitely often. - Charles R Greathouse IV, Aug 06 2012

Does not satisfy Benford's law [Whyman et al., 2016]. - N. J. A. Sloane, Feb 12 2017

Links

T. D. Noe, Table of n, a(n) for n = 0..1000

David P. Bellamy, Jeffrey C. Lagarias, Felix Lazebnik, Proposed Problem: Large Values of Tan n

David P. Bellamy, Jeffrey C. Lagarias, Felix Lazebnik and Stephen M. Gagola, Jr., Large Values of Tangent: 10656, The American Mathematical Monthly, Vol. 106, No. 8 (Oct., 1999), pp. 782-784.

Daniel Forgues and Jon E. Schoenfield, Discussion of A000503

G. Whyman, N. Ohtori, E. Shulzinger, Ed. Bormashenko, Revisiting the Benford law: When the Benford-like distribution of leading digits in sets of numerical data is expectable?, Physica A: Statistical Mechanics and its Applications, 461 (2016), 595-601.

Index entries for sequences related to Benford's law

Maple

f := n->floor(evalf(tan(n)));

Mathematica

Table[Floor[Tan[n]], {n, 0, 100}] (* Stefan Steinerberger, Apr 09 2006 *)

Prog

(PARI) a(n)=tan(n)\1 \\ Charles R Greathouse IV, Sep 04 2014
(Magma) [Floor(Tan(n)): n in [0..80]]; // Vincenzo Librandi, Jun 13 2015

Crossrefs

Cf. A005657, A000493, A000480, A000494, A000484, A088306, A195911, A195910, A037448, A258024.

Sequence in context: A242735 A177058 A176921 * A254864 A111956 A024564

Adjacent sequences: A000500 A000501 A000502 * A000504 A000505 A000506

Keyword

sign,easy,nice

Author

N. J. A. Sloane

Extensions

More terms from Stefan Steinerberger, Apr 09 2006

Status

approved