%I #7 Mar 28 2015 11:39:12
%S 2,4,8,16,32,40,37,35,33,31,30,28,27,26,25,25,24,23,22,22,21,21,20,20,
%T 20,19,19,18,18,18,17,17,17,17,16,16,16,16,16,15,15,15,15,15,14,14,14,
%U 14,14,14,14,13,13,13,13,13,13,13,13,12,12,12,12,12
%N a(n) = min { 2^n, floor(100/sqrt(n)) }.
%t Table[Min[2^n,Floor[100/Sqrt[n]]],{n,70}] (* _Harvey P. Dale_, Oct 31 2013 *)
%K nonn
%O 0,1
%A _N. J. A. Sloane_