« first day (3665 days earlier)      last day (825 days later) » 

Nasser
Nasser
2:23 AM
@user10478 the solution is really as small as you can get it. But if you want to expand it, you can try

pde = D[u[x, t], t] == D[u[x, t], {x, 2}] + x + t;
bc = {u[0, t] == 0, u[5, t] == 0}
ic = u[x, 0] == 0;
sol = u[x, t] /. First@DSolve[{pde, bc, ic}, u[x, t], {x, t}]
sol = sol /. K[1] -> n
sol[[1]] = sol[[1, 1 ;; 3]]* Expand[sol[[1, 4]]]*sol[[1, 5]]

and now it is expanded.
 
user10478
user10478
3:12 AM
Okay, thank you very much.
 
 
19 hours later…
JimB
JimB
10:01 PM
@psimeson Is this what you need? `flist = {8^(Sqrt[Log[3, n]]), Log[2, n]^(Log[2, n]/Log[2, Log[2, n]]),
Factorial[n], n^(1/Log[9, n]), Log[2, Log[2, n]], (10005/10000)^n,
5^(Log[7, n]), Log[2, Factorial[n]], n^4, Sqrt[n], 2^(Log[5, n]),
2^(Log[2, n])^5};
f = Table[If[Limit[flist[[j]]/flist[[i]], n -> \[Infinity]] < 1, 0, 1], {j, 12}, {i, 12}];
t = SortBy[Table[{i, Total[f[[i, All]]]}, {i, 12}], Last];
flistSorted = flist[[t[[All, 1]]]]
(* {9,Log[Log[n]/Log[2]]/Log[2],8^(Sqrt[Log[n]]/Sqrt[Log[3]]),2^(Log[\
 

« first day (3665 days earlier)      last day (825 days later) »