login
A024570
a(n) = Sum_{k=1..n} [ 1/{k*r} ] where r = (1 + sqrt(5))/2 and {x} := x - [ x ].
3
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,2
LINKS
MATHEMATICA
Table[Sum[Floor[1/FractionalPart[k*GoldenRatio]], {k, n}], {n, 100}] (* Clark Kimberling, Aug 15 2012 *)
CROSSREFS
Cf. A024571. Partial sums of A024569.
Sequence in context: A054378 A129319 A362285 * A365553 A134077 A120128
KEYWORD
nonn
EXTENSIONS
Corrected by Clark Kimberling, Aug 15 2012
STATUS
approved