%I #8 Aug 03 2014 14:27:15

%S 1,4,6,7,12,13,15,21,22,24,34,35,38,62,64,67,68,69,73,74,76,81,82,84,

%T 91,92,95,107,108,111,166,167,170,171,173,177,178,180,186,187,189,197,

%U 198,201,218,219,222,223,225,228,229,231,235,237,238,245,246,248,258,259,262,289,291

%N a(n) = [ sum of 1/{k*sqrt(7)} ] for k = 1,2,...,n, where {x} := x - [ x ].

%H Clark Kimberling, <a href="/A024566/b024566.txt">Table of n, a(n) for n = 1..1000</a>

%t Table[Floor[Sum[1/FractionalPart[k*Sqrt[7]], {k, n}]], {n, 100}] (* _Clark Kimberling_, Aug 15 2012 *)

%Y Cf. A024565.

%K nonn

%O 1,2

%A _Clark Kimberling_