OFFSET
1,2
COMMENTS
Numbers k such that fract((1024/1000)^k) < 1/k, where fract(x) = x-floor(x).
The next such number must be greater than 5*10^5.
a(14) > 10^7. - Robert Price, Mar 16 2019
EXAMPLE
a(7) = 585 since fract((1024/1000)^585) = 0.00139... < 1/585, but fract((1024/1000)^k) >= 1/k for 7 <= k <= 584.
MATHEMATICA
Select[Range[2000], FractionalPart[(1024/1000)^#] < (1/#) &] (* G. C. Greubel, Aug 24 2016; corrected by Robert Price, Mar 16 2019 *)
PROG
(PARI) isok(n) = frac((1024/1000)^n) < 1/n \\ Michel Marcus, Aug 06 2013
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Hieronymus Fischer, Jan 06 2009
EXTENSIONS
a(10)-a(13) from Robert Price, Mar 16 2019
STATUS
approved