qpms/besseltransforms/2-3-7

((7*k^8 + 24*k^6*(7 - 2*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^2 + 16*k^4*(42 - 23*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^4 + 64*k^2*(14 - 11*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^6 - 384*(-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^8)/(336*k^7) - (7*k^8 + 24*k^6*(7 - 2*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^2 + 16*k^4*(42 - 23*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^4 + 64*k^2*(14 - 11*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^6 - 384*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^8)/(168*k^7) + (7*k^8 + 24*k^6*(7 - 2*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^2 + 16*k^4*(42 - 23*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^4 + 64*k^2*(14 - 11*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^6 - 384*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^8)/(336*k^7))/k0^3
SeriesData[k, Infinity, {c^2/k0^3, (-7*(2*c^3 - I*c^2*k0))/k0^3, (4*(25*c^4 - (24*I)*c^3*k0 - 6*c^2*k0^2))/k0^3, (-105*(18*c^5 - (25*I)*c^4*k0 - 12*c^3*k0^2 + (2*I)*c^2*k0^3))/(4*k0^3), (16*(301*c^6 - (540*I)*c^5*k0 - 375*c^4*k0^2 + (120*I)*c^3*k0^3 + 15*c^2*k0^4))/(3*k0^3), ((-33*(c - I*k0)^7)/16 + (33*(2*c - I*k0)^7)/8 - (33*(3*c - I*k0)^7)/16)/k0^3, ((8*(c - I*k0)^8)/7 - (16*(2*c - I*k0)^8)/7 + (8*(3*c - I*k0)^8)/7)/k0^3, ((-143*(c - I*k0)^9)/384 + (143*(2*c - I*k0)^9)/192 - (143*(3*c - I*k0)^9)/384)/k0^3, 0, ((13*(c - I*k0)^11)/256 - (13*(2*c - I*k0)^11)/128 + (13*(3*c - I*k0)^11)/256)/k0^3}, 1, 11, 1]
Bessel transform mathematica results etc. Former-commit-id: 3dca9d0ccbfefa4c5f3867ce4ba31229646ca2d9 2018-01-15 15:14:15 +02:00			((7k^8 + 24k^6(7 - 2Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^2 + 16k^4(42 - 23Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^4 + 64k^2(14 - 11Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^6 - 384(-1 + Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^8)/(336k^7) - (7k^8 + 24k^6(7 - 2Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^2 + 16k^4(42 - 23Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^4 + 64k^2(14 - 11Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^6 - 384(-1 + Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^8)/(168k^7) + (7k^8 + 24k^6(7 - 2Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^2 + 16k^4(42 - 23Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^4 + 64k^2(14 - 11Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^6 - 384(-1 + Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^8)/(336k^7))/k0^3
			SeriesData[k, Infinity, {c^2/k0^3, (-7(2c^3 - Ic^2k0))/k0^3, (4(25c^4 - (24I)c^3k0 - 6c^2k0^2))/k0^3, (-105(18c^5 - (25I)c^4k0 - 12c^3k0^2 + (2I)c^2k0^3))/(4k0^3), (16(301c^6 - (540I)c^5k0 - 375c^4k0^2 + (120I)c^3k0^3 + 15c^2k0^4))/(3k0^3), ((-33(c - Ik0)^7)/16 + (33(2c - Ik0)^7)/8 - (33(3c - Ik0)^7)/16)/k0^3, ((8(c - Ik0)^8)/7 - (16(2c - Ik0)^8)/7 + (8(3c - Ik0)^8)/7)/k0^3, ((-143(c - Ik0)^9)/384 + (143(2c - Ik0)^9)/192 - (143(3c - Ik0)^9)/384)/k0^3, 0, ((13(c - Ik0)^11)/256 - (13(2c - Ik0)^11)/128 + (13(3c - I*k0)^11)/256)/k0^3}, 1, 11, 1]