In[]:=
s=Table[N@Entropy@StringDelete[StringJoin[IntegerName[#,{"Words","English"}]&/@Range[i]],{FromCharacterCode[8208]," ",","}],{i,1,1000}];
In[]:=
ListLinePlot[s,GridLines{Range[1,1000,10],Automatic}]
Out[]=