login
A153680
Numbers k such that the fractional part of (1024/1000)^k is greater than 1-(1/k).
11
1, 29, 82, 134, 277, 1306, 2036, 2349, 6393, 9389, 9816, 21689, 34477, 145984, 171954, 956357, 2746739
OFFSET
1,2
COMMENTS
Numbers k such that fract((1024/1000)^k) > 1-(1/k), where fract(x) = x-floor(x).
The next such number must be greater than 5*10^5.
EXAMPLE
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.
MATHEMATICA
Select[Range[1000], FractionalPart[(1024/1000)^#] >= 1 - (1/#) &] (* G. C. Greubel, Aug 24 2016 *)
KEYWORD
nonn,more
AUTHOR
Hieronymus Fischer, Jan 06 2009
EXTENSIONS
a(16)-a(17) from Hagen von Eitzen, May 16 2009
STATUS
approved