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
Keywords
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 *)