van=facebook.com/LearningCalculus$

kill(all)$

 Find n, m and k >= 2 such that 1+2!+3! + ... n = m^k;

f(n):=sum(i!,i,1,n);

g(m,k):=m^k;

h(n,m,k):=f(n)=g(m,k);

for i: 1 thru 9 do print("Answer ", " f(", i, "): ",f(i));

n:9;

for i: 1 thru n do
    for m: 2 thru n do
        for k: 2 thru n do
            if f(i) = g(m,k) then
            print("Answer ", "f(",i,") = ", "g(",m,", ",k,"): ", g(m,k));

for m: 3 thru 3 do
    for k: 3 thru 7 do
        print("Answer ", "g(",m,", ",k,"): ", g(m,k));

23^4;

13^8;

3^8;

3^9;

7^3;

17^3;

13^3;

13^2;

13^4;

13^5;