|
%I #9 Aug 03 2014 14:27:15
%S 2,2,12,6,70,12,7,25,12,70,19,12,33,17,70,25,408,39,21,70,30,195,43,
%T 25,70,33,146,46,2378,70,36,125,49,408,70,39,113,51,252,70,41,105,53,
%U 195,70,854,100,54,165,70,408,96,55,146,70,285,93,2378,134,70,228,91,660,125,70,195,89
%N a(n) = [ n/{n*sqrt(2)} ], where {x} := x - [ x ].
%H Clark Kimberling, <a href="/A024538/b024538.txt">Table of n, a(n) for n = 1..1000</a>
%t Table[Floor[n/FractionalPart[n*Sqrt[2]]], {n, 1, 100}] (* _Clark Kimberling_, Aug 17 2012 *)
%Y Cf. A024539.
%K nonn
%O 1,1
%A _Clark Kimberling_
|
