A024550 [ Sum of 1/{k*sqrt(3)} ], k = 1,2,...,n, where {x} := x - [ x ].

1, 3, 8, 9, 11, 13, 21, 22, 24, 27, 46, 48, 50, 54, 55, 56, 58, 64, 65, 67, 69, 79, 80, 82, 85, 115, 116, 118, 123, 124, 125, 128, 134, 135, 137, 139, 151, 152, 154, 158, 229, 230, 232, 237, 238, 239, 242, 249, 250, 252, 255, 270, 271, 273, 277, 278, 279, 281, 287, 288, 289, 292

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Cf. A024549.

Sequence in context: A350776 A247544 A080524 * A173179 A225555 A047472

Adjacent sequences: A024547 A024548 A024549 * A024551 A024552 A024553

Keyword

nonn

Author

Clark Kimberling

Status

approved