%I #9 Jan 09 2021 15:53:40
%S 1,2,3,4,5,6,7,8,9,10,9,8,7,7,6,6,5,5,5,5,4,4,4,4,4,3,3,3,3,3,3,3,3,2,
%T 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
%U 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
%N a(n) = min { n, floor(100/n) }.
%p Digits := 40; [seq(floor(min(n,100/n)), n=1..100)];
%t Table[Min[n,Floor[100/n]],{n,100}] (* _Harvey P. Dale_, Jan 09 2021 *)
%K nonn
%O 1,2
%A _N. J. A. Sloane_