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 A024571 #11 Aug 03 2014 14:27:15
%S A024571 1,5,7,9,20,21,24,25,27,33,34,36,65,67,71,72,74,82,83,86,87,88,93,94,
%T A024571 97,111,112,116,117,119,125,126,129,205,206,210,212,214,223,225,228,
%U A024571 229,230,236,237,239,260,262,265,266,268,275,277,279,280,282,287,288,290,302,303,307
%N A024571 a(n) = [ sum of 1/{k*r} ] for k = 1,2,...,n, where r = (1 + sqrt(5))/2 and {x} := x - [ x ].
%H A024571 Clark Kimberling, <a href="/A024571/b024571.txt">Table of n, a(n) for n = 1..1000</a>
%t A024571 Table[Floor[Sum[1/FractionalPart[k*GoldenRatio], {k, n}]], {n, 100}] (* _Clark Kimberling_, Aug 15 2012 *)
%Y A024571 Cf. A024570.
%K A024571 nonn
%O A024571 1,2
%A A024571 _Clark Kimberling_
%E A024571 Corrected by _Clark Kimberling_, Aug 15 2012