A046158 Values of n for which there are no empty intervals when frac(m*gamma) for m = 1, ..., n is plotted along [0, 1] subdivided into n equal regions.
1, 2, 3, 5, 6, 7, 12, 19, 26, 97, 123, 149, 272, 395, 5258, 5653, 26685, 31943, 58628, 500967, 559595
Offset: 1
Links
- Eric Weisstein's World of Mathematics, Equidistributed Sequence
- Eric Weisstein's World of Mathematics, Euler-Mascheroni Constant
Crossrefs
Programs
-
Mathematica
With[{f = FractionalPart[EulerGamma Range[1000]]}, Position[Table[Count[BinCounts[Take[f, n], {0., 1, 1/n}], 0], {n, Length[f]}], 0]] // Flatten (* Eric W. Weisstein, Apr 27 2024 *)
Extensions
a(19) from Sean A. Irvine, Nov 01 2020
a(20)-a(21) from Eric W. Weisstein, Apr 26 2024
Comments