|
%I #4 Oct 12 2017 16:17:04
%S 0,3,11,24,43,68,98,133,174,220,272,329,391,459,533,612,696,786,881,
%T 981,1087,1199,1316,1438,1566,1699,1838,1982,2131,2286,2446,2612,2784,
%U 2960,3142,3330,3523,3721,3925,4135,4349,4569,4795,5026,5263,5505,5752,6005
%N The integer k that minimizes |k/n^2 - e|.
%H Clark Kimberling, <a href="/A293414/b293414.txt">Table of n, a(n) for n = 0..1000</a>
%F a(n) = floor(1/2 + (n^2)*e).
%F a(n) = A293412(n) if (fractional part of e*n^2) < 1/2, else a(n) = A293413(n).
%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 *)
%Y Cf. A001113, A293412, A293413.
%K nonn,easy
%O 0,2
%A _Clark Kimberling_, Oct 12 2017
|
