You are using a browser not supported by the Wolfram Cloud
Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.
I understand and wish to continue anyway »
WOLFRAM NOTEBOOK
In[]:=
ListPlot[{1,4,10,19,31,46,64,85,109,136,166,197,231,266,304,343,385,428,474,520,568,616,666,716,768,820,874,928,980,1032,1082,1132,1180,1228,1274,1320,1363,1405,1443,1479,1511,1541,1567,1591,1611,1620},ScalingFunctions{"Log","Log"}]
Out[]=
In[]:=
FirstValuesGraphNeighborhoodVolumes
,{900},Automatic
Out[]=
{1,3,6,10,15,21,28,36,45,55,66,78,91,105,120,136,153,171,190,210,231,253,276,300,325,351,378,406,435,465,494,522,549,575,600,624,647,669,690,710,729,747,764,780,795,809,822,834,845,855,864,872,879,885,890,894,897,899,900}
In[]:=
ListPlot[%,ScalingFunctions{"Log","Log"}]
Out[]=
In[]:=
Show[%111,%113]
Out[]=