|
%I #8 Aug 03 2014 14:27:15
%S 1,6,3,6,21,6,13,48,11,21,106,16,32,345,21,48,17,28,70,21,37,106,26,
%T 48,173,32,62,345,39,80,1694,48,106,35,58,145,41,70,211,48,86,345,56,
%U 106,765,65,134,48,76,173,54,89,235,62,106,345,70,127,593,80,156,1694,92,195,66,106
%N a(n) = [ n/{n*sqrt(7)} ], where {x} := x - [ x ].
%H Clark Kimberling, <a href="/A024563/b024563.txt">Table of n, a(n) for n = 1..1000</a>
%t Table[Floor[n/FractionalPart[n*Sqrt[7]]], {n, 100}] (* _Clark Kimberling_, Aug 15 2012 *)
%Y Cf. A024564.
%K nonn
%O 1,2
%A _Clark Kimberling_
|
