|
%I #6 May 13 2019 09:40:38
%S 0,3,11,25,44,68,98,134,174,221,272,329,392,460,533,612,696,786,881,
%T 982,1088,1199,1316,1438,1566,1699,1838,1982,2132,2287,2447,2613,2784,
%U 2961,3143,3330,3523,3722,3926,4135,4350,4570,4796,5027,5263,5505,5752,6005
%N Least integer k such that k/n^2 > e.
%H Clark Kimberling, <a href="/A293413/b293413.txt">Table of n, a(n) for n = 0..1000</a>
%F a(n) = ceiling(e*n^2).
%F a(n) = A293412(n) + 1 for n > 0.
%t z = 120; r = E;
%t Table[Floor[r*n^2], {n, 0, z}]; (* A293412 *)
%t Table[Ceiling[r*n^2], {n, 0, z}]; (* A293413 *)
%t Table[Round[r*n^2], {n, 0, z}]; (* A293414 *)
%t Ceiling[E Range[0,50]^2] (* _Harvey P. Dale_, May 13 2019 *)
%Y Cf. A001113, A293412, A293414.
%K nonn,easy
%O 0,2
%A _Clark Kimberling_, Oct 12 2017
|
