|
%I #5 Oct 11 2017 21:56:48
%S 0,2,10,23,41,65,94,128,167,212,261,316,376,442,513,589,670,756,848,
%T 945,1047,1154,1267,1384,1507,1636,1769,1908,2052,2201,2356,2515,2680,
%U 2851,3026,3207,3392,3584,3780,3982,4188,4400,4618,4840,5068,5301,5539,5783
%N Greatest integer k such that k/n^2 < (3 + sqrt(5))/2.
%H Clark Kimberling, <a href="/A293403/b293403.txt">Table of n, a(n) for n = 0..1000</a>
%F a(n) = floor(r*n^2), where r = (3 + sqrt(5))/2.
%F a(n) = A293404(n) - 1 for n > 0.
%t z = 120; r = 1+GoldenRatio;
%t Table[Floor[r*n^2], {n, 0, z}]; (* A293403 *)
%t Table[Ceiling[r*n^2], {n, 0, z}]; (* A293404 *)
%t Table[Round[r*n^2], {n, 0, z}]; (* A293405 *)
%Y Cf. A001622, A293401, A293404, A293405.
%K nonn,easy
%O 0,2
%A _Clark Kimberling_, Oct 11 2017
|
