qpms/besseltransforms/2-3-2

((-3 + 2*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0) + (2*(-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^3)/k^2 - 2*(-3 + 2*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0) - (4*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^3)/k^2 + (-3 + 2*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0) + (2*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^3)/k^2)/(6*k0^3)
SeriesData[k, Infinity, {c^2/k0^3, (-4*c^3)/k0^3 + ((2*I)*c^2)/k0^2, (25*c^4 - (24*I)*c^3*k0 - 6*c^2*k0^2)/(4*k0^3), 0, (-301*c^6 + (540*I)*c^5*k0 + 375*c^4*k0^2 - (120*I)*c^3*k0^3 - 15*c^2*k0^4)/(24*k0^3), 0, (3025*c^8 - (7728*I)*c^7*k0 - 8428*c^6*k0^2 + (5040*I)*c^5*k0^3 + 1750*c^4*k0^4 - (336*I)*c^3*k0^5 - 28*c^2*k0^6)/(64*k0^3), 0, (-28501*c^10 + (93300*I)*c^9*k0 + 136125*c^8*k0^2 - (115920*I)*c^7*k0^3 - 63210*c^6*k0^4 + (22680*I)*c^5*k0^5 + 5250*c^4*k0^6 - (720*I)*c^3*k0^7 - 45*c^2*k0^8)/(128*k0^3)}, 1, 11, 1]
Bessel transform mathematica results etc. Former-commit-id: 3dca9d0ccbfefa4c5f3867ce4ba31229646ca2d9 2018-01-15 15:14:15 +02:00			`((-3 + 2Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0) + (2(-1 + Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^3)/k^2 - 2(-3 + 2Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0) - (4(-1 + Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^3)/k^2 + (-3 + 2Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0) + (2(-1 + Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^3)/k^2)/(6k0^3)`
			SeriesData[k, Infinity, {c^2/k0^3, (-4c^3)/k0^3 + ((2I)c^2)/k0^2, (25c^4 - (24I)c^3k0 - 6c^2k0^2)/(4k0^3), 0, (-301c^6 + (540I)c^5k0 + 375c^4k0^2 - (120I)c^3k0^3 - 15c^2k0^4)/(24k0^3), 0, (3025c^8 - (7728I)c^7k0 - 8428c^6k0^2 + (5040I)c^5k0^3 + 1750c^4k0^4 - (336I)c^3k0^5 - 28c^2k0^6)/(64k0^3), 0, (-28501c^10 + (93300I)c^9k0 + 136125c^8k0^2 - (115920I)c^7k0^3 - 63210c^6k0^4 + (22680I)c^5k0^5 + 5250c^4k0^6 - (720I)c^3k0^7 - 45c^2k0^8)/(128*k0^3)}, 1, 11, 1]