This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A079039 #11 Jul 14 2015 01:43:11
%S A079039 1,3,22,29,45,75,135,259,863,1786,2483,2538,5731,16095,36692,94720
%N A079039 Fractional part of cosh(n) decreases monotonically to zero.
%t A079039 $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 A079039 (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 A079039 Cf. A046947 ( for abs(sin(x)) ).
%K A079039 nonn
%O A079039 0,2
%A A079039 _Benoit Cloitre_, Feb 01 2003
%E A079039 Terms 1786, 2483, 2538 from _Zak Seidov_, Jul 28 2010
%E A079039 a(9) - a(15) from _Robert G. Wilson v_, Jul 30 2010