A046157 Number of empty intervals when fractional_part(i*gamma) for i = 1, ..., n is plotted along [ 0, 1 ] subdivided into n equal regions, where gamma is the Euler-Mascheroni constant.
0, 0, 0, 1, 0, 0, 0, 1, 2, 2, 3, 0, 3, 5, 3, 3, 3, 2, 0, 3, 2, 2, 2, 1, 1, 0, 2, 3, 4, 3, 3, 3, 7, 6, 7, 7, 8, 8, 13, 10, 10, 10, 12, 11, 6, 13, 14, 14, 14, 14, 15, 26, 16, 19, 14, 17, 18, 18, 19, 18, 20, 18, 21, 18, 20, 20, 21, 21, 19, 21, 15, 20, 23, 21, 21, 20, 22, 26, 21, 22, 20
Offset: 1
Links
- Ivan Neretin, Table of n, a(n) for n = 1..10000
- Eric Weisstein's World of Mathematics, Equidistributed Sequence.
Crossrefs
Programs
-
Mathematica
Table[Length@Complement[Range[n] - 1, Floor[n*FractionalPart[EulerGamma*Range[n]]]], {n, 81}] (* Ivan Neretin, Jan 23 2018 *)