A024570 a(n) = Sum_{k=1..n} [ 1/{k*r} ] where r = (1 + sqrt(5))/2 and {x} := x - [ x ].

1, 5, 6, 8, 19, 20, 23, 24, 25, 30, 31, 33, 62, 63, 66, 67, 68, 76, 77, 79, 80, 81, 85, 86, 88, 102, 103, 106, 107, 108, 114, 115, 117, 193, 194, 198, 199, 201, 210, 211, 213, 214, 215, 220, 221, 223, 244, 245, 248, 249, 250, 257, 258, 260, 261, 262, 266, 267, 269, 281, 282, 285

Offset: 1

Author

Clark Kimberling

Keywords

• nonn

Links

• Clark Kimberling, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A024571. Partial sums of A024569.

Programs

Mathematica

Table[Sum[Floor[1/FractionalPart[k*GoldenRatio]], {k, n}], {n, 100}] (* Clark Kimberling, Aug 15 2012 *)

Extensions

Corrected by Clark Kimberling, Aug 15 2012