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 A153664 #12 Aug 24 2016 12:29:08 %S A153664 1,14,163,1256,2677,8093,49304,49305,158643,164000,835999,2242294, %T A153664 2242295,2242296,3965133,25380333,92600006,92600007,92600008,92600009, %U A153664 92600010,92600011,99267816,125040717,125040718 %N A153664 Numbers k such that the fractional part of (3/2)^k is greater than 1-(1/k). %C A153664 Numbers k such that fract((3/2)^k) > 1-(1/k), where fract(x) = x-floor(x). %C A153664 The next term is greater than 3*10^8. %e A153664 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. %t A153664 Select[Range[1000], FractionalPart[(3/2)^#] >= 1 - (1/#) &] (* _G. C. Greubel_, Aug 24 2016 *) %Y A153664 Cf. A002379, A081464, A153662, A153663, A153665, A153666, A153667, A153668. %K A153664 nonn,more %O A153664 1,2 %A A153664 _Hieronymus Fischer_, Dec 31 2008 %E A153664 a(11)-a(25) from _Robert Gerbicz_, Nov 21 2010