|
%I #18 Jul 17 2019 04:43:23
%S 1,5,6,8,19,20,23,24,25,30,31,33,62,63,66,67,68,76,77,79,80,81,85,86,
%T 88,102,103,106,107,108,114,115,117,193,194,198,199,201,210,211,213,
%U 214,215,220,221,223,244,245,248,249,250,257,258,260,261,262,266,267,269,281,282,285
%N a(n) = Sum_{k=1..n} [ 1/{k*r} ] where r = (1 + sqrt(5))/2 and {x} := x - [ x ].
%H Clark Kimberling, <a href="/A024570/b024570.txt">Table of n, a(n) for n = 1..1000</a>
%t Table[Sum[Floor[1/FractionalPart[k*GoldenRatio]], {k, n}], {n, 100}] (* _Clark Kimberling_, Aug 15 2012 *)
%Y Cf. A024571. Partial sums of A024569.
%K nonn
%O 1,2
%A _Clark Kimberling_
%E Corrected by _Clark Kimberling_, Aug 15 2012
|
