In[]:=
$Version
Out[]=
14.2.0 for Microsoft Windows (64-bit) (December 26, 2024)
In[]:=
f[x_]:=x^n-x^(n-1)
M=10;(*youcanincreaseifyouwant*)
In[]:=
A=Minimize[{#,0<x<1},x]&/@Table[f[x],{n,3,M}]
Out[]=
-,x,-,x,-,x,-,x,-,x,-,x,-,x,-,x
4
27
2
3
27
256
3
4
256
3125
4
5
3125
46656
5
6
46656
823543
6
7
823543
16777216
7
8
16777216
387420489
8
9
387420489
10000000000
9
10
In[]:=
B=Join[{Table[n==j,{j,3,M}],A}];
In[]:=
Grid[B,Frame->All]
Out[]=
n3 | n4 | n5 | n6 | n7 | n8 | n9 | n10 |
- 4 27 2 3 | - 27 256 3 4 | - 256 3125 4 5 | - 3125 46656 5 6 | - 46656 823543 6 7 | - 823543 16777216 7 8 | - 16777216 387420489 8 9 | - 387420489 10000000000 9 10 |