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 ].
2

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

%S 2,2,28,8,5,28,12,8,28,14,235,28,16,93,28,18,66,28,19,55,28,235,49,28,

%T 126,46,28,93,43,824,76,41,235,66,39,147,60,38,112,55,493,93,52,235,

%U 81,49,161,72,1877,126,66,400,106,62,235,93,58,172,83,824,138,76,357,117,71,235,103

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

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

%t a[n_] := Floor[n/FractionalPart[n/E]]; Table[a[n], {n, 70}] (* _Clark Kimberling_, Aug 17 2012 *)

%Y Cf. A024578.

%K nonn

%O 1,1

%A _Clark Kimberling_