qpms/besseltransforms/5-2-6

((k^6 - 6*k^4*(-3 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^2 + 16*k^2*(3 - 2*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^4 - 32*(-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^6)/(6*k^6) - (5*(k^6 - 6*k^4*(-3 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^2 + 16*k^2*(3 - 2*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^4 - 32*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^6))/(6*k^6) + (5*(k^6 - 6*k^4*(-3 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^2 + 16*k^2*(3 - 2*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^4 - 32*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^6))/(3*k^6) - (5*(k^6 - 6*k^4*(-3 + Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^2 + 16*k^2*(3 - 2*Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^4 - 32*(-1 + Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^6))/(3*k^6) + (5*(k^6 - 6*k^4*(-3 + Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^2 + 16*k^2*(3 - 2*Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^4 - 32*(-1 + Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^6))/(6*k^6) - (k^6 - 6*k^4*(-3 + Sqrt[1 + k^2/(6*c - I*k0)^2])*(6*c - I*k0)^2 + 16*k^2*(3 - 2*Sqrt[1 + k^2/(6*c - I*k0)^2])*(6*c - I*k0)^4 - 32*(-1 + Sqrt[1 + k^2/(6*c - I*k0)^2])*(6*c - I*k0)^6)/(6*k^6))/k0^2
SeriesData[k, Infinity, {(945*c^5)/k0^2, (-13440*c^6)/k0^2 + ((3840*I)*c^5)/k0, (-10395*c^5)/2 + (65835*c^7)/k0^2 - ((72765*I)/2*c^6)/k0, 0, (-15015*(1087*c^9 - (1134*I)*c^8*k0 - 456*c^7*k0^2 + (84*I)*c^6*k0^3 + 6*c^5*k0^4))/(16*k0^2)}, 5, 11, 1]
Bessel transform mathematica results etc. Former-commit-id: 3dca9d0ccbfefa4c5f3867ce4ba31229646ca2d9 2018-01-15 15:14:15 +02:00			((k^6 - 6k^4(-3 + Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^2 + 16k^2(3 - 2Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^4 - 32(-1 + Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^6)/(6k^6) - (5(k^6 - 6k^4(-3 + Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^2 + 16k^2(3 - 2Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^4 - 32(-1 + Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^6))/(6k^6) + (5(k^6 - 6k^4(-3 + Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^2 + 16k^2(3 - 2Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^4 - 32(-1 + Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^6))/(3k^6) - (5(k^6 - 6k^4(-3 + Sqrt[1 + k^2/(4c - Ik0)^2])(4c - Ik0)^2 + 16k^2(3 - 2Sqrt[1 + k^2/(4c - Ik0)^2])(4c - Ik0)^4 - 32(-1 + Sqrt[1 + k^2/(4c - Ik0)^2])(4c - Ik0)^6))/(3k^6) + (5(k^6 - 6k^4(-3 + Sqrt[1 + k^2/(5c - Ik0)^2])(5c - Ik0)^2 + 16k^2(3 - 2Sqrt[1 + k^2/(5c - Ik0)^2])(5c - Ik0)^4 - 32(-1 + Sqrt[1 + k^2/(5c - Ik0)^2])(5c - Ik0)^6))/(6k^6) - (k^6 - 6k^4(-3 + Sqrt[1 + k^2/(6c - Ik0)^2])(6c - Ik0)^2 + 16k^2(3 - 2Sqrt[1 + k^2/(6c - Ik0)^2])(6c - Ik0)^4 - 32(-1 + Sqrt[1 + k^2/(6c - Ik0)^2])(6c - Ik0)^6)/(6k^6))/k0^2
			`SeriesData[k, Infinity, {(945c^5)/k0^2, (-13440c^6)/k0^2 + ((3840I)c^5)/k0, (-10395c^5)/2 + (65835c^7)/k0^2 - ((72765I)/2c^6)/k0, 0, (-15015(1087c^9 - (1134I)c^8k0 - 456c^7k0^2 + (84I)c^6k0^3 + 6c^5k0^4))/(16*k0^2)}, 5, 11, 1]`