A153666 Greatest number m such that the fractional part of (3/2)^A153662(n) <= 1/m.

2, 4, 16, 11, 16799, 11199, 5536, 92694, 61796, 41197, 23242, 55710, 137921, 257825, 5271294, 706641581, 471094387, 314062925

Offset

1,1

Links

Table of n, a(n) for n=1..18.

Formula

a(n):=floor(1/fract((3/2)^A153662(n))), where fract(x) = x-floor(x).

Example

a(3)=16 since 1/17<fract((3/2)^A153662(3))=fract((3/2)^4)=0.0625=1/16.

Mathematica

A153662 = {1, 2, 4, 7, 3328, 3329, 4097, 12429, 12430, 12431, 18587, 44257, 112896, 129638, 4264691, 144941960, 144941961, 144941962};
Table[fp = FractionalPart[(3/2)^A153662[[n]]]; m = Floor[1/fp];
While[fp <= 1/m, m++];  m - 1, {n, 1, Length[A153662]}] (* Robert Price, Mar 26 2019 *)

Crossrefs

Cf. A002379, A081464, A153662, A153663, A153664, A153665, A153667, A153668.

Sequence in context: A352217 A186110 A073923 * A098819 A186008 A067846

Adjacent sequences: A153663 A153664 A153665 * A153667 A153668 A153669

Keyword

nonn,more

Author

Hieronymus Fischer, Dec 31 2008

Extensions

a(15)-a(18) from Robert Price, May 09 2012

Status

approved