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

Author

Clark Kimberling

Keywords

• nonn

Links

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

Crossrefs

Cf. A024585.

Programs

Mathematica

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