login
The OEIS is supported by the many generous donors 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

%I

%S 1,3,22,29,45,75,135,259,863,1786,2483,2538,5731,16095,36692,94720

%N Fractional part of cosh(n) decreases monotonically to zero.

%t $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 *)

%o (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)

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

%K nonn

%O 0,2

%A _Benoit Cloitre_, Feb 01 2003

%E Terms 1786, 2483, 2538 from _Zak Seidov_, Jul 28 2010

%E a(9) - a(15) from _Robert G. Wilson v_, Jul 30 2010

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 19 22:12 EST 2022. Contains 350466 sequences. (Running on oeis4.)