This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A024569 #10 Aug 03 2014 14:27:15
%S A024569 1,4,1,2,11,1,3,1,1,5,1,2,29,1,3,1,1,8,1,2,1,1,4,1,2,14,1,3,1,1,6,1,2,
%T A024569 76,1,4,1,2,9,1,2,1,1,5,1,2,21,1,3,1,1,7,1,2,1,1,4,1,2,12,1,3,1,1,5,1,
%U A024569 2,38,1,3,1,2,8,1,2,1,1,4,1,2,16,1,3,1,1,6,1,2,199,1,4,1,2,10
%N A024569 [ 1/{n*r} ], where r = (1 + sqrt(5))/2 and {x} := x - [ x ].
%C A024569 A024569(n) = 1 iff A078588 = 1. A024569(n) = 1 iff A089808 is not 1. Either A024569(n) or A089809(n) = 1, but not both. A024569(n) is the complement of A089809(n). - _Gary W. Adamson_, Nov 11 2003
%H A024569 Clark Kimberling, <a href="/A024569/b024569.txt">Table of n, a(n) for n = 1..1000</a>
%t A024569 Table[Floor[1/FractionalPart[n*GoldenRatio]], {n, 100}] (* _Clark Kimberling_, Aug 15 2012 *)
%Y A024569 Cf. A078588, A089808, A089809, A024570.
%K A024569 nonn
%O A024569 1,2
%A A024569 _Clark Kimberling_
%E A024569 Corrected by _Clark Kimberling_, Aug 15 2012