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 (* 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
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