0,2

(PARI) x=1; y=1; a(n)=if(n<0, 0, b=y+1; while(frac(1/(1-tanh(b)))>frac(1/(1-tanh(x))), b++); x=b; y=b; b)

Cf. A046947 ( for abs(sin(x)) ).

Sequence in context: A031023 A054302 A024843 this_sequence A057453 A066008 A101058

Adjacent sequences: A079037 A079038 A079039 this_sequence A079041 A079042 A079043

nonn

Benoit Cloitre (benoit7848c(AT)orange.fr), Feb 01 2003