login
a(n) = min { n, floor(100/n) }.
0

%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_