A024555 a(n) = [ sum of 1/{k*sqrt(5)} ], k = 1,2,...,n, where {x} := x - [ x ].

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

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

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

Adjacent sequences: A024552 A024553 A024554 * A024556 A024557 A024558

Keyword

nonn

Author

Clark Kimberling

Status

approved