OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..2000
FORMULA
Is a(n) asymptotic to c*n^2 0.5<c<0.7 ?
MATHEMATICA
Select[ Range[1700], Mod[ Denominator[ HarmonicNumber[ # ]], # ] != 0 &] (* Robert G. Wilson v *)
seq = {}; s = 0; Do[s += 1/n; If[! Divisible[Denominator[s], n], AppendTo[seq, n]], {n, 1, 2000}]; seq (* Amiram Eldar, Dec 01 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Sep 07 2002
EXTENSIONS
Better description and more terms from Robert G. Wilson v, Sep 28 2005
STATUS
approved