|
%I #8 Aug 03 2014 14:27:15
%S 1,4,19,4,8,19,250,10,19,54,12,19,38,250,19,32,80,19,29,54,250,27,44,
%T 100,26,38,68,250,34,54,116,32,46,80,250,41,64,128,3002,54,91,250,48,
%U 72,139,1122,61,100,250,54,80,148,768,68,108,250,60,87,155,619,74,116,250,65,94,162,536
%N a(n) = [ n/{n*e} ], {x} := x - [ x ].
%H Clark Kimberling, <a href="/A024572/b024572.txt">Table of n, a(n) for n = 1..1000</a>
%t Table[Floor[1/FractionalPart[n*E]], {n, 100}] (* _Clark Kimberling_, Aug 15 2012 *)
%Y Cf. A024573.
%K nonn
%O 1,2
%A _Clark Kimberling_
|
