# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a153680 Showing 1-1 of 1 %I A153680 #10 Aug 25 2016 03:36:28 %S A153680 1,29,82,134,277,1306,2036,2349,6393,9389,9816,21689,34477,145984, %T A153680 171954,956357,2746739 %N A153680 Numbers k such that the fractional part of (1024/1000)^k is greater than 1-(1/k). %C A153680 Numbers k such that fract((1024/1000)^k) > 1-(1/k), where fract(x) = x-floor(x). %C A153680 The next such number must be greater than 5*10^5. %e A153680 a(2) = 29, since fract((1024/1000)^29) = 0.98929... > 0.9655... = 1 - (1/29), but fract((1024/1000)^k) <= 1 - (1/k) for 1 < k < 29. %t A153680 Select[Range[1000], FractionalPart[(1024/1000)^#] >= 1 - (1/#) &] (* _G. C. Greubel_, Aug 24 2016 *) %Y A153680 Cf. A153664, A153672, A153684, A154130, A153688, A153696, A153704, A153712, A153720. %K A153680 nonn,more %O A153680 1,2 %A A153680 _Hieronymus Fischer_, Jan 06 2009 %E A153680 a(16)-a(17) from _Hagen von Eitzen_, May 16 2009 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE