SHOW:
|
|
- or go back to the newest paste.
| 1 | Workingexpansion = | |
| 2 | tau/n - (A tau^2)/(27 n^3) - (B tau^3)/(5832 n^5); | |
| 3 | CoefficientList[Workingexpansion, tau][[2]] | |
| 4 | ||
| 5 | 1/n | |
| 6 | ||
| 7 | Assuming[ | |
| 8 | n ∈ Integers, | |
| 9 | TrueQ[Simplify[CoefficientList[Workingexpansion, tau][[2]]] != 0]] | |
| 10 | ||
| 11 | Assuming[ | |
| 12 | n ∈ Integers, | |
| 13 | TrueQ[ | |
| 14 | Simplify[ | |
| 15 | CoefficientList[Workingexpansion, tau][[2]] != 0 | |
| 16 | ] | |
| 17 | ] | |
| 18 | ] |
