|
|
A004980
|
|
Numbers k such that if 1 <= j < k then the fractional part of the k-th partial sum of the harmonic series > the fractional part of the j-th partial sum of the harmonic series.
|
|
0
|
|
|
2, 3, 10, 29, 30, 225, 226, 4549, 91379, 248395, 248396, 675212, 675213, 4989190, 13562026, 36865410, 36865411, 100210578, 100210579, 100210580, 5471312309, 14872568829, 14872568830, 40427833594, 40427833595, 109894245427, 109894245428, 812014744421
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|