login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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; text; internal format)
OFFSET

0,2

LINKS

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

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 (* Robert G. Wilson v, 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: A134924 A042547 A269799 * A209987 A041103 A225414

Adjacent sequences:  A079036 A079037 A079038 * A079040 A079041 A079042

KEYWORD

nonn

AUTHOR

Benoit Cloitre, Feb 01 2003

EXTENSIONS

Terms 1786, 2483, 2538 from Zak Seidov, Jul 28 2010

a(9) - a(15) from Robert G. Wilson v, Jul 30 2010

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified August 22 10:37 EDT 2017. Contains 290946 sequences.