A153713 Greatest number m such that the fractional part of Pi^A137994(n) <= 1/m.

7, 159, 270, 307, 744, 757, 796, 1079, 1226, 7804, 13876, 62099, 70718, 86902, 154755

Offset

1,1

Links

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

Formula

a(n) = floor(1/fract(Pi^A137994(n))), where fract(x) = x-floor(x).

Example

a(2)=159 since 1/160<fract(Pi^A137994(2))=fract(Pi^3)=0.0062766...<=1/159.

Mathematica

A137994 = {1, 3, 81, 264, 281, 472, 1147, 2081, 3207, 3592, 10479, 12128, 65875, 114791, 118885};
Table[fp = FractionalPart[Pi^A137994[[n]]]; m = Floor[1/fp];
While[fp <= 1/m, m++]; m - 1, {n, 1, Length[A137994]}] (* Robert Price, Mar 26 2019 *)

Crossrefs

Cf. A081464, A153669, A153677, A153685, A153693, A153701, A137994, A154130, A153721.

Cf. A001672.

Sequence in context: A114485 A061010 A153714 * A137995 A177779 A177469

Adjacent sequences: A153710 A153711 A153712 * A153714 A153715 A153716

Keyword

nonn,more

Author

Hieronymus Fischer, Jan 06 2009

Extensions

a(14)-a(15) from Robert Price, Mar 26 2019

Status

approved