This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A153672 #9 Aug 25 2016 03:13:12 %S A153672 1,69,180,783,859,1803,10763,19105,39568,50172,132572,355146,1452050, %T A153672 2245950,3047334,3933030,4165171,98544173 %N A153672 Numbers k such that the fractional part of (101/100)^k is greater than 1-(1/k). %C A153672 Numbers k such that fract((101/100)^k) > 1-(1/k), where fract(x) = x-floor(x). %C A153672 The next term is greater than 2*10^8. %e A153672 a(2) = 69, since fract((101/100)^69) = 0.9868... > 0.9855... = 1 - (1/69), but fract((101/100)^k) <= 1 - (1/k) for 1 < k < 69. %t A153672 Select[Range[1000], FractionalPart[(101/100)^#] >= 1 - (1/#) &] (* _G. C. Greubel_, Aug 24 2016 *) %Y A153672 Cf. A153664, A154130, A153676, A153680, A153688, A153696, A153704, A153712, A153720. %K A153672 nonn,more %O A153672 1,2 %A A153672 _Hieronymus Fischer_, Jan 06 2009 %E A153672 a(13)-a(18) from _Robert Gerbicz_, Nov 22 2010