OFFSET
1,1
FORMULA
a(n) = floor(1/fract(Pi^A153710(n))), where fract(x) = x-floor(x).
EXAMPLE
a(2)=159 since 1/160<fract(Pi^A153710(2))=fract(Pi^3)=0.0062766...<=1/159.
MATHEMATICA
A153710 = {1, 3, 5, 9, 10, 11, 59, 81, 264, 281, 472, 3592, 10479,
12128, 65875, 118885};
Table[fp = FractionalPart[Pi^A153710[[n]]]; m = Floor[1/fp];
While[fp <= 1/m, m++]; m - 1, {n, 1, Length[A153710]}] (* Robert Price, May 10 2019 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Hieronymus Fischer, Jan 06 2009
EXTENSIONS
a(16) from Robert Price, May 10 2019
STATUS
approved