%I #9 Aug 03 2014 14:27:15
%S 1,4,15,4,7,15,56,9,15,31,209,15,25,56,15,22,38,101,20,31,56,209,27,
%T 42,82,780,35,56,126,31,44,75,209,38,56,101,430,46,70,141,2911,56,89,
%U 209,47,68,115,346,56,82,152,780,66,101,209,56,78,126,308,65,93,160,528,75,111,209
%N a(n) = [ n/{n*sqrt(3)} ], where {x} := x - [ x ].
%H Clark Kimberling, <a href="/A024547/b024547.txt">Table of n, a(n) for n = 1..1000</a>
%t Table[Floor[n/FractionalPart[n*Sqrt[3]]], {n, 100}] (* _Clark Kimberling_, Aug 17 2012 *)
%Y Cf. A024548.
%K nonn
%O 1,2
%A _Clark Kimberling_
|