|
Search: id:A087460
|
|
|
| A087460 |
|
Least n such that H(n) is closer to an integer than any H(j) with j < n; where H(n) is the harmonic number sum_{i=0..n} 1/i. |
|
+0
1
|
|
| 2, 3, 4, 10, 11, 30, 83, 226, 4549, 91379, 91380, 248396, 248397, 675213, 4989190, 4989191, 13562026, 13562027, 36865412, 2012783315
(list; graph; listen)
|
|
|
OFFSET
|
2,1
|
|
|
COMMENT
|
H(36865412) = 18.000000003719931082993704481490195538573320586002
|
|
MATHEMATICA
|
d = 1; s = 1; n = 2; Do[ While[s = N[s + 1/n, 50]; Abs[Round[s] - s] > d, n++ ]; Print[n]; d = Abs[Round[s] - s]; n++, {i, 2, 18}]
|
|
CROSSREFS
|
Cf. A002387, A004796.
Sequence in context: A120023 A115897 A116019 this_sequence A082866 A085701 A051627
Adjacent sequences: A087457 A087458 A087459 this_sequence A087461 A087462 A087463
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 03 2003
|
|
|
Search completed in 0.002 seconds
|
