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 A153666 #10 Mar 26 2019 19:20:11
%S A153666 2,4,16,11,16799,11199,5536,92694,61796,41197,23242,55710,137921,
%T A153666 257825,5271294,706641581,471094387,314062925
%N A153666 Greatest number m such that the fractional part of (3/2)^A153662(n) <= 1/m.
%F A153666 a(n):=floor(1/fract((3/2)^A153662(n))), where fract(x) = x-floor(x).
%e A153666 a(3)=16 since 1/17<fract((3/2)^A153662(3))=fract((3/2)^4)=0.0625=1/16.
%t A153666 A153662 = {1, 2, 4, 7, 3328, 3329, 4097, 12429, 12430, 12431, 18587, 44257, 112896, 129638, 4264691, 144941960, 144941961, 144941962};
%t A153666 Table[fp = FractionalPart[(3/2)^A153662[[n]]]; m = Floor[1/fp];
%t A153666 While[fp <= 1/m, m++]; m - 1, {n, 1, Length[A153662]}] (* _Robert Price_, Mar 26 2019 *)
%Y A153666 Cf. A002379, A081464, A153662, A153663, A153664, A153665, A153667, A153668.
%K A153666 nonn,more
%O A153666 1,1
%A A153666 _Hieronymus Fischer_, Dec 31 2008
%E A153666 a(15)-a(18) from _Robert Price_, May 09 2012