A024580 - OEIS

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

%S 2,4,13,15,17,21,23,24,27,29,50,53,54,61,63,64,68,69,70,73,74,85,87,

%T 88,94,95,96,100,101,129,131,132,140,142,143,147,148,150,152,154,166,

%U 168,169,175,176,178,181,182,221,223,225,232,234,236,240,241,242

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

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

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

%Y Cf. A024579.

%K nonn

%O 1,1

%A _Clark Kimberling_

%E Corrected by _Clark Kimberling_, Aug 17 2012