login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

a(n) = [ n/{n*e} ], {x} := x - [ x ].
1

%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_