A057603 Second term of continued fraction for log(n).
1, 10, 2, 1, 1, 1, 12, 5, 3, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 22, 10, 7, 5, 4, 3, 3, 3, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 136, 39, 23, 16, 12, 10, 9, 7, 6, 6, 5, 5, 4, 4, 4, 4, 3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1
Offset: 2
Programs
-
Mathematica
Table[ContinuedFraction[Log[n],10][[2]],{n,2,120}] (* Harvey P. Dale, Jul 18 2023 *)
Formula
a(n) = floor(1/(log(n) - floor(log(n)))).