A153677 -id:A153677 - cp's OEIS frontend

A153697 Greatest number m such that the fractional part of (10/9)^A153693(n) <= 1/m.

9, 11, 30, 82, 6131, 26735, 29430, 76172, 151439, 227416, 771341, 2712159, 4490404

Offset: 1

Hieronymus Fischer, Jan 06 2009

			a(2)=11 since 1/12 < fract((10/9)^A153693(2)) = fract((10/9)^7) = 0.09075... <= 1/11.

Cf. A081464, A153669, A153677, A153685, A153693, A154130, A153705, A153713, A153721.

A153693 = {1, 7, 50, 62, 324, 3566, 66877, 108201, 123956, 132891,
   182098, 566593, 3501843};
Table[fp = FractionalPart[(10/9)^A153693[[n]]]; m = Floor[1/fp];
While[fp <= 1/m, m++]; m - 1, {n, 1, Length[A153693]}] (* Robert Price, Mar 25 2019 *)

a(n) = floor(1/fract((10/9)^A153693(n))), where fract(x) = x-floor(x).

a(12)-a(13) from Robert Price, Mar 25 2019

A153689 Greatest number m such that the fractional part of (11/10)^A153685(n) <= 1/m.

Original entry on oeis.org

10, 18, 253, 618, 6009, 6767, 21386, 697723, 4186162, 31102351

Offset: 1

Hieronymus Fischer, Jan 06 2009

			a(2)=18 since 1/19 < fract((11/10)^A153685(2)) = fract((11/10)^17) = 0.0544... <= 1/18.

Cf. A081464, A153669, A153677, A153685, A154130, A153697, A153705, A153713, A153721.

A153685 = {1, 17, 37, 237, 599, 615, 6638, 13885, 1063942, 9479731};
Table[fp = FractionalPart[(11/10)^A153685[[n]]]; m = Floor[1/fp];
While[fp <= 1/m, m++]; m - 1, {n, 1, Length[A153685]}] (* Robert Price, Mar 25 2019 *)

a(n) = floor(1/fract((11/10)^A153685(n))), where fract(x) = x-floor(x).

a(9)-a(10) from Robert Price, Mar 25 2019

cp's OEIS Frontend

A153697 Greatest number m such that the fractional part of (10/9)^A153693(n) <= 1/m.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Formula

Extensions