OFFSET
1,1
PROG
(PARI) lista(nn) = {fr = 0; h = 1; for (n = 2, nn, h += 1/n; if ((nfr = frac(h)) > fr, print1(n, ", "); fr = nfr; ); ); } \\ Michel Marcus, Sep 30 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
a(9) from Michel Marcus, Sep 30 2013
More terms from Jon E. Schoenfield, Dec 23 2013
STATUS
approved