OFFSET
0,2
COMMENTS
See A114468 for denominators.
Eric Weisstein's link conjectures that for both this sequence and A114468, a(n) ~ (log_10(e) = A002285)*10^n. - Nathan L. Skirrow, Jun 22 2023
LINKS
J. Sondow and E. W. Weisstein, MathWorld: Harmonic Number
MATHEMATICA
Table[IntegerLength[Numerator[HarmonicNumber[10^n]]], {n, 0, 8}](* Harvey P. Dale, May 24 2019 *)
PROG
(Python)
from gmpy2 import digits, mpq
def a(n): return len(digits(sum(mpq(1, n) for n in range(1, 10**n+1)).numerator))
print([a(n) for n in range(6)]) # Michael S. Branicky, Jun 22 2023
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Eric W. Weisstein, Nov 29 2005
EXTENSIONS
Edited by Charles R Greathouse IV, Aug 05 2010
STATUS
approved