In[]:=
ListLogLogPlot[<|1214,2145,3107,476,572,658,742,850,944,1035,1132,1225,1328,1437,1526,1619,1717,1815,1920,2019,2115,2219,2321,2411,2519,2610,2716,2815,298,3012,318,3213,3310,349,3510,3613,376,3812,3912,406,416,4210,439,4416,457,4615,4712,486,499,506,517,526,5311,546,5511,567,5712,587,594,6010,613,627,634,644,653,669,674,687,699,704,715,727,735,744,753,763,779,785,796,805,815,823,837,847,856,865,872,883,896,903,913,924,935,943,955,964,972,982,996,1003,1015,1026,1033,1044,1053,1063,1071,1083,1095,1102,1113,1123,1136,1144,1151,1167,1172,1182,1191,1204,1212,1224,1231,1242,1251,1262,1277,1283,1293,1301,1312,1327,1334,1342,1351,1362,1381,1407,1411,1421,1432,1446,1454,1463,1473,1483,1492,1505,1513,1525,1532,1553,1561,1576,1581,1591,1601,1612,1621,1641,1651,1674,1681,1694,1703,1712,1721,1732,1741,1752,1764,1771,1791,1801,1811,1834,1841,1853,1861,1903,1943,1951,1971,1992,2001|>]
Out[]=
In[]:=
List@@@Normal[<|1214,2145,3107,476,572,658,742,850,944,1035,1132,1225,1328,1437,1526,1619,1717,1815,1920,2019,2115,2219,2321,2411,2519,2610,2716,2815,298,3012,318,3213,3310,349,3510,3613,376,3812,3912,406,416,4210,439,4416,457,4615,4712,486,499,506,517,526,5311,546,5511,567,5712,587,594,6010,613,627,634,644,653,669,674,687,699,704,715,727,735,744,753,763,779,785,796,805,815,823,837,847,856,865,872,883,896,903,913,924,935,943,955,964,972,982,996,1003,1015,1026,1033,1044,1053,1063,1071,1083,1095,1102,1113,1123,1136,1144,1151,1167,1172,1182,1191,1204,1212,1224,1231,1242,1251,1262,1277,1283,1293,1301,1312,1327,1334,1342,1351,1362,1381,1407,1411,1421,1432,1446,1454,1463,1473,1483,1492,1505,1513,1525,1532,1553,1561,1576,1581,1591,1601,1612,1621,1641,1651,1674,1681,1694,1703,1712,1721,1732,1741,1752,1764,1771,1791,1801,1811,1834,1841,1853,1861,1903,1943,1951,1971,1992,2001|>];
In[]:=
Module[{data=%105,fit},fit=FindFit[Take[data,{10,50}],aτ^b,{a,b},τ];Show[ListLogLogPlot[data,Frame->True,AspectRatio->1/2,Epilog->Inset[Text[NumberForm[τ^(b/.fit),3]],Scaled[{.85,.85}]]],LogLogPlot[Evaluate[aτ^b/.fit],{τ,1,Max[First/@data]},PlotStyle->Red]]]
Out[]=