A024586 a(n) = floor(Sum_{k=1..n} of 1/{k*Pi}) where { } denotes fractional part.

7, 10, 12, 14, 16, 17, 18, 25, 29, 31, 33, 35, 36, 37, 45, 49, 51, 53, 54, 56, 57, 65, 69, 72, 74, 75, 76, 77, 87, 91, 93, 95, 97, 98, 99, 109, 113, 116, 118, 119, 121, 122, 133, 137, 140, 142, 144, 145, 146, 158, 163, 166, 168, 169, 171, 172, 186, 190, 193, 195, 197, 198, 199, 215

Offset

1,1

Links

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

Mathematica

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

Crossrefs

Cf. A024585.

Sequence in context: A024585 A190482 A128783 * A050419 A089373 A184114

Adjacent sequences: A024583 A024584 A024585 * A024587 A024588 A024589

Keyword

nonn

Author

Clark Kimberling

Status

approved