A024815 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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