%I A087460
%S A087460 2,3,4,10,11,30,83,226,4549,91379,91380,248396,248397,675213,4989190,
%T A087460 4989191,13562026,13562027,36865412,2012783315
%N 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.
%C A087460 H(36865412) = 18.000000003719931082993704481490195538573320586002
%t A087460 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}]
%Y A087460 Cf. A002387, A004796.
%Y A087460 Sequence in context: A120023 A115897 A116019 this_sequence A082866 A085701 
               A051627
%Y A087460 Adjacent sequences: A087457 A087458 A087459 this_sequence A087461 A087462 
               A087463
%K A087460 more,nonn
%O A087460 2,1
%A A087460 Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 03 2003