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 A154133 #10 Sep 03 2016 17:07:21 %S A154133 1,2,8,39,113,3895,4714,8592,34289,60097,942859,2759790,6649343, %T A154133 7937397,14480816,19338413,19338414,19338415,23187701,124679421 %N A154133 Numbers k such that the fractional part of (4/3)^k is greater than 1-(1/k). %C A154133 Numbers k such that fract((4/3)^k) > 1-(1/k), where fract(x) = x - floor(x). %C A154133 The next term is greater than 3*10^8. %e A154133 a(4) = 39, since fract((4/3)^39) = 0.9991861450... > 0.974358... = 1 - (1/39), but fract((4/3)^k) <= 1 - (1/k) for 8 < k < 39. %t A154133 Select[Range[5000], N[FractionalPart[(4/3)^#], 100] > 1 - (1/#) &] (* _G. C. Greubel_, Sep 02 2016 *) %o A154133 (PARI) isok(n) = frac((4/3)^n) > 1 - 1/n; \\ _Michel Marcus_, Sep 03 2016 %Y A154133 Cf. A153664, A153672, A153704, A153711, A154141, A154149. %Y A154133 Cf. A002379, A064628. %K A154133 nonn,more %O A154133 1,2 %A A154133 _Hieronymus Fischer_, Jan 11 2009 %E A154133 a(11)-a(20) from _Robert Gerbicz_, Nov 21 2010