OFFSET
1,2
COMMENTS
Numbers k such that fract((3/2)^k) > 1-(1/k), where fract(x) = x-floor(x).
The next term is greater than 3*10^8.
EXAMPLE
a(2) = 14 since fract((3/2)^14) = 0.92926... > 0.92857... = 1 - (1/14), but fract((3/2)^k) <= 1 - (1/k) for 1<k<14.
MATHEMATICA
Select[Range[1000], FractionalPart[(3/2)^#] >= 1 - (1/#) &] (* G. C. Greubel, Aug 24 2016 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Hieronymus Fischer, Dec 31 2008
EXTENSIONS
a(11)-a(25) from Robert Gerbicz, Nov 21 2010
STATUS
approved