login
a(n) = [ n/{n*sqrt(6)} ], where {x} := x - [ x ].
2

%I #7 Aug 03 2014 14:27:15

%S 2,2,8,5,20,8,47,13,198,20,11,30,15,47,20,83,26,198,35,20,47,24,67,30,

%T 105,37,198,47,823,61,33,83,39,120,47,198,58,471,73,40,95,47,131,56,

%U 198,67,372,83,1960,105,55,139,64,198,76,326,91,823,113,61,145,71,198,83,299,99,578

%N a(n) = [ n/{n*sqrt(6)} ], where {x} := x - [ x ].

%H Clark Kimberling, <a href="/A024558/b024558.txt">Table of n, a(n) for n = 1..1000</a>

%t Table[Floor[n/FractionalPart[n*Sqrt[6]]], {n, 1, 100}]

%t (* _Clark Kimberling_, Aug 16 2012 *)

%Y Cf. A024559.

%K nonn

%O 1,1

%A _Clark Kimberling_