A024548 [ 1/{n*sqrt(3)} ], where {x} := x - [ x ].

1, 2, 5, 1, 1, 2, 8, 1, 1, 3, 19, 1, 1, 4, 1, 1, 2, 5, 1, 1, 2, 9, 1, 1, 3, 30, 1, 2, 4, 1, 1, 2, 6, 1, 1, 2, 11, 1, 1, 3, 71, 1, 2, 4, 1, 1, 2, 7, 1, 1, 2, 15, 1, 1, 3, 1, 1, 2, 5, 1, 1, 2, 8, 1, 1, 3, 21, 1, 1, 4, 1, 1, 2, 5, 1, 1, 2, 10, 1, 1, 3, 35, 1, 2, 4, 1, 1, 2, 6, 1, 1, 2, 12, 1, 1, 3, 112, 1, 2, 4

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Cf. A024547.

Sequence in context: A284750 A092134 A181779 * A376316 A197737 A189824

Adjacent sequences: A024545 A024546 A024547 * A024549 A024550 A024551

Keyword

nonn

Author

Clark Kimberling

Status

approved