qpms/besseltransforms/2-3-3

(k^2*(3 - 2*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^2 - 2*(-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^4 + 2*k^2*(-3 + 2*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^2 + 4*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^4 + k^2*(3 - 2*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^2 - 2*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^4)/(6*k^3*k0^3)
SeriesData[k, Infinity, {c^2/k0^3, (-3*(2*c^3 - I*c^2*k0))/k0^3, (2*(25*c^4 - (24*I)*c^3*k0 - 6*c^2*k0^2))/(3*k0^3), (-5*(18*c^5 - (25*I)*c^4*k0 - 12*c^3*k0^2 + (2*I)*c^2*k0^3))/(4*k0^3), 0, ((c - I*k0)^7/8 - (2*c - I*k0)^7/4 + (3*c - I*k0)^7/8)/(6*k0^3), 0, ((-3*(c - I*k0)^9)/64 + (3*(2*c - I*k0)^9)/32 - (3*(3*c - I*k0)^9)/64)/(6*k0^3), 0, ((3*(c - I*k0)^11)/128 - (3*(2*c - I*k0)^11)/64 + (3*(3*c - I*k0)^11)/128)/(6*k0^3)}, 1, 11, 1]
Bessel transform mathematica results etc. Former-commit-id: 3dca9d0ccbfefa4c5f3867ce4ba31229646ca2d9 2018-01-15 15:14:15 +02:00			`(k^2(3 - 2Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^2 - 2(-1 + Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^4 + 2k^2(-3 + 2Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^2 + 4(-1 + Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^4 + k^2(3 - 2Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^2 - 2(-1 + Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^4)/(6k^3k0^3)`
			`SeriesData[k, Infinity, {c^2/k0^3, (-3(2c^3 - Ic^2k0))/k0^3, (2(25c^4 - (24I)c^3k0 - 6c^2k0^2))/(3k0^3), (-5(18c^5 - (25I)c^4k0 - 12c^3k0^2 + (2I)c^2k0^3))/(4k0^3), 0, ((c - Ik0)^7/8 - (2c - Ik0)^7/4 + (3c - Ik0)^7/8)/(6k0^3), 0, ((-3(c - Ik0)^9)/64 + (3(2c - Ik0)^9)/32 - (3(3c - Ik0)^9)/64)/(6k0^3), 0, ((3(c - Ik0)^11)/128 - (3(2c - Ik0)^11)/64 + (3(3c - Ik0)^11)/128)/(6*k0^3)}, 1, 11, 1]`