A024815 a(n) = least k such that tan(k) < tan(a(n-1)), for n >= 1, with a(0) = 0.

0, 2, 5, 8, 11, 52174, 573204, 42781604, 288632526

Offset

0,2

Links

Table of n, a(n) for n=0..8.

Prog

(PARI) a(nn) = {last = 0; lastk = 0; print1(lastk, ", "); for (i=1, nn, k = lastk; while (tan(k) >= last, k++; ); print1(k, ", "); last = tan(k); lastk = k; ); } \\ Michel Marcus, Mar 23 2013

Crossrefs

Sequence in context: A229883 A135050 A004112 * A073837 A357505 A189531

Adjacent sequences: A024812 A024813 A024814 * A024816 A024817 A024818

Keyword

nonn,more

Author

Clark Kimberling

Extensions

a(7) from Michel Marcus, Mar 23 2013

a(8) from Sean A. Irvine, Jul 24 2019

Status

approved