OFFSET
1,1
FORMULA
a(n):=floor(1/fract((3/2)^A081464(n))), where fract(x) = x-floor(x).
EXAMPLE
a(4)=25 since 1/26<fract((3/2)^A081464(4))=fract((3/2)^29)=0.039...<=1/25.
MATHEMATICA
A081464 = {1, 2, 4, 29, 95, 153, 532, 613, 840, 2033, 2071, 3328, 12429, 112896, 129638, 371162, 1095666, 3890691, 4264691, 31685458, 61365215, 92432200, 144941960};
Table[fp = FractionalPart[(3/2)^A081464[[n]]]; m = Floor[1/fp];
While[fp <= 1/m, m++]; m - 1, {n, 1, Length[A081464]}] (* Robert Price, Mar 26 2019 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Hieronymus Fischer, Dec 31 2008
EXTENSIONS
a(16)-a(23) from Robert Price, May 09 2012
STATUS
approved