1,2

Equivalently, k is the least positive integer such that there is a rational number H with denominator k for which n < cosh(H) < n+1.

Table of n, a(n) for n=1..100.

Table[k=1; While[Floor[k*ArcCosh[n+1]]<=k*ArcCosh[n], k++]; k, {n, 100}]

Cf. A183162, A183164.

Sequence in context: A318569 A277749 A227629 * A082467 A106407 A023141

Adjacent sequences: A183198 A183199 A183200 * A183202 A183203 A183204

nonn

Clark Kimberling, Dec 29 2010

approved