A153694 Numbers k such that the fractional part of (10/9)^k is less than 1/k.
1, 2, 7, 62, 324, 1647, 3566, 5464, 8655, 8817, 123956, 132891, 182098, 566593, 2189647, 2189648, 3501843, 3501844
Offset: 1
Examples
a(3) = 7 since fract((10/9)^7) = 0.09075... < 1/7, but fract((10/9)^k) >= 1/k for 3 <= k <= 6.
Programs
-
Mathematica
Select[Range[1000], FractionalPart[(10/9)^#] < (1/#) &] (* G. C. Greubel, Aug 24 2016 *)
Extensions
a(14)-a(18) from Robert Price, Mar 24 2019
Comments