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
Programs
-
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
Extensions
a(7) from Michel Marcus, Mar 23 2013
a(8) from Sean A. Irvine, Jul 24 2019