A024571 - OEIS

%I #11 Aug 03 2014 14:27:15

%S 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 97,111,112,116,117,119,125,126,129,205,206,210,212,214,223,225,228,

%U 229,230,236,237,239,260,262,265,266,268,275,277,279,280,282,287,288,290,302,303,307

%N a(n) = [ sum of 1/{k*r} ] for k = 1,2,...,n, where r = (1 + sqrt(5))/2 and {x} := x - [ x ].

%H Clark Kimberling, <a href="/A024571/b024571.txt">Table of n, a(n) for n = 1..1000</a>

%t Table[Floor[Sum[1/FractionalPart[k*GoldenRatio], {k, n}]], {n, 100}] (* _Clark Kimberling_, Aug 15 2012 *)

%Y Cf. A024570.

%K nonn

%O 1,2

%A _Clark Kimberling_

%E Corrected by _Clark Kimberling_, Aug 15 2012