OFFSET
1,1
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
KEYWORD
nonn,more
AUTHOR
Hieronymus Fischer, Dec 31 2008
EXTENSIONS
a(15)-a(18) from Robert Price, May 09 2012
STATUS
approved