|
| |
|
|
A079039
|
|
Fractional part of cosh(n) decreases monotonically to zero.
|
|
0
| |
|
|
1, 3, 22, 29, 45, 75, 135, 259, 863, 1786, 2483, 2538, 5731, 16095, 36692, 94720
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
MATHEMATICA
| $MaxExtraPrecision = 2^16; k = 1; lst = {}; mn = Infinity; While[k < 100001, a = FractionalPart@ Cosh@k; If[a < mn, mn = a; AppendTo[lst, k]; Print@k]; k++ ]; lst [From Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 30 2010]
|
|
|
PROG
| (PARI) x=1; y=1; a(n)=if(n<0, 0, b=y+1; while(frac(cosh(b))>frac(cosh(x)), b++); x=b; y=b; b)
|
|
|
CROSSREFS
| Cf. A046947 ( for abs(sin(x)) ).
Sequence in context: A072398 A134924 A042547 * A041103 A187694 A104604
Adjacent sequences: A079036 A079037 A079038 * A079040 A079041 A079042
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Benoit Cloitre (benoit7848c(AT)orange.fr), Feb 01 2003
|
|
|
EXTENSIONS
| Terms 1786, 2483, 2538 from Zak Seidov (zakseidov(AT)yahoo.com), Jul 28 2010
a(9) - a(15) from Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 30 2010
|
| |
|
|
