В попытке узнать больше о системе Mathematica я пытаюсь воспроизвести отметки на этом графике журнала (журнала) :

Это так близко, насколько я могу:

LogLogPlot[Log[x!], {x, 1, 10^5}, PlotRange -> {{0, 10^5}, {10^-1, 10^6}}, Ticks -> {Table[10^i, {i, 0, 5}], Table[10^i, {i, -1, 6}]}]

Вопрос

Как я могу сделать отметки, которые всегда форма 10 ^ n для соответствующих значений n?