login
A024555
a(n) = [ sum of 1/{k*sqrt(5)} ], k = 1,2,...,n, where {x} := x - [ x ].
2
4, 6, 7, 8, 14, 16, 18, 19, 27, 30, 31, 33, 47, 50, 52, 54, 130, 134, 136, 137, 138, 143, 146, 147, 148, 155, 158, 160, 161, 173, 176, 178, 179, 217, 221, 223, 225, 226, 230, 233, 234, 235, 242, 244, 246, 247, 258, 261, 262, 264, 289, 293, 295, 296, 297, 302, 304, 305, 306
OFFSET
1,1
LINKS
MATHEMATICA
Table[Floor[Sum[1/FractionalPart[k*Sqrt[5]], {k, 1, n}]], {n, 1, 100}]
(* Clark Kimberling, Aug 16 2012 *)
Floor[Accumulate[1/FractionalPart[Range[60]Sqrt[5]]]] (* Harvey P. Dale, Apr 07 2019 *)
CROSSREFS
Cf. A024554.
Sequence in context: A047507 A024554 A078744 * A363375 A269330 A213627
KEYWORD
nonn
STATUS
approved