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 A153662 #12 Aug 24 2016 12:28:46 %S A153662 1,2,4,7,3328,3329,4097,12429,12430,12431,18587,44257,112896,129638, %T A153662 4264691,144941960,144941961,144941962 %N A153662 Numbers k such that the fractional part of (3/2)^k is less than 1/k. %C A153662 Numbers k such that fract((3/2)^k) < 1/k, where fract(x) = x-floor(x). %C A153662 The next term is greater than 3*10^8. %e A153662 a(4) = 7 since fract((3/2)^7) = 0.0859375 < 1/7, but fract((3/2)^5) = 0.59375 >= 1/5 and fract((3/2)^6) = 0.390625 >= 1/6. %t A153662 Select[Range[1000], FractionalPart[(3/2)^#] < (1/#) &] (* _G. C. Greubel_, Aug 24 2016 *) %Y A153662 Cf. A002379, A081464, A153663, A153664, A153665, A153666, A153667, A153668. %K A153662 nonn,more %O A153662 1,2 %A A153662 _Hieronymus Fischer_, Dec 31 2008 %E A153662 a(15)-a(18) from _Robert Gerbicz_, Nov 21 2010