|
|
A036414
|
|
Number of empty intervals when fractional_part(i*phi) for i = 1, ..., n is plotted along [ 0, 1 ] subdivided into n equal regions.
|
|
5
|
|
|
0, 0, 0, 0, 0, 0, 1, 0, 2, 0, 1, 1, 0, 2, 2, 0, 2, 3, 1, 2, 0, 3, 2, 4, 3, 1, 3, 3, 4, 3, 2, 4, 5, 0, 4, 5, 4, 8, 6, 6, 5, 2, 5, 5, 5, 5, 8, 5, 5, 4, 8, 6, 6, 5, 0, 6, 7, 8, 7, 6, 8, 8, 11, 9, 8, 10, 9, 4, 9, 9, 9, 8, 8, 9, 8, 12, 8, 8, 10, 9, 6, 9, 8, 11, 10, 8, 10, 10, 0, 10, 11, 9, 12, 12, 14
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,9
|
|
REFERENCES
|
H. Steinhaus, Mathematical Snapshots, 3rd American ed. New York: Oxford University Press, pp. 48-49, 1983.
|
|
LINKS
|
|
|
MATHEMATICA
|
Table[Length@Complement[Range[n] - 1, Floor[n*FractionalPart[GoldenRatio*Range[n]]]], {n, 95}] (* Ivan Neretin, Jan 23 2018 *)
Table[Count[BinCounts[FractionalPart[GoldenRatio Range[n]], {0, 1, 1/n}], 0], {n, 95}] (* Eric W. Weisstein, Apr 17 2024 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|