qpms/besseltransforms/5-5-7

((21*k^10 + 4*k^8*(105 - 32*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^2 + 112*k^6*(15 - 8*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^4 + 384*k^4*(7 - 5*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^6 + 128*k^2*(15 - 13*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^8 - 512*(-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^10)/(40320*k^7) - (21*k^10 + 4*k^8*(105 - 32*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^2 + 112*k^6*(15 - 8*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^4 + 384*k^4*(7 - 5*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^6 + 128*k^2*(15 - 13*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^8 - 512*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^10)/(8064*k^7) + (21*k^10 + 4*k^8*(105 - 32*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^2 + 112*k^6*(15 - 8*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^4 + 384*k^4*(7 - 5*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^6 + 128*k^2*(15 - 13*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^8 - 512*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^10)/(4032*k^7) - (21*k^10 + 4*k^8*(105 - 32*Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^2 + 112*k^6*(15 - 8*Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^4 + 384*k^4*(7 - 5*Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^6 + 128*k^2*(15 - 13*Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^8 - 512*(-1 + Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^10)/(4032*k^7) + (21*k^10 + 4*k^8*(105 - 32*Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^2 + 112*k^6*(15 - 8*Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^4 + 384*k^4*(7 - 5*Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^6 + 128*k^2*(15 - 13*Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^8 - 512*(-1 + Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^10)/(8064*k^7) - (21*k^10 + 4*k^8*(105 - 32*Sqrt[1 + k^2/(6*c - I*k0)^2])*(6*c - I*k0)^2 + 112*k^6*(15 - 8*Sqrt[1 + k^2/(6*c - I*k0)^2])*(6*c - I*k0)^4 + 384*k^4*(7 - 5*Sqrt[1 + k^2/(6*c - I*k0)^2])*(6*c - I*k0)^6 + 128*k^2*(15 - 13*Sqrt[1 + k^2/(6*c - I*k0)^2])*(6*c - I*k0)^8 - 512*(-1 + Sqrt[1 + k^2/(6*c - I*k0)^2])*(6*c - I*k0)^10)/(40320*k^7))/k0^5
SeriesData[k, Infinity, {(7*c^5)/k0^5, (-24*(7*c^6 - (2*I)*c^5*k0))/k0^5, (105*(38*c^7 - (21*I)*c^6*k0 - 3*c^5*k0^2))/(2*k0^5), (-80*(189*c^8 - (152*I)*c^7*k0 - 42*c^6*k0^2 + (4*I)*c^5*k0^3))/k0^5, (1155*(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^5), (-32*(8547*c^10 - (10870*I)*c^9*k0 - 5670*c^8*k0^2 + (1520*I)*c^7*k0^3 + 210*c^6*k0^4 - (12*I)*c^5*k0^5))/k0^5, (143*(120332*c^11 - (179487*I)*c^10*k0 - 114135*c^9*k0^2 + (39690*I)*c^8*k0^3 + 7980*c^7*k0^4 - (882*I)*c^6*k0^5 - 42*c^5*k0^6))/(32*k0^5), 0, (-715*(443611*c^13 - (847392*I)*c^12*k0 - 721992*c^11*k0^2 + (358974*I)*c^10*k0^3 + 114135*c^9*k0^4 - (23814*I)*c^8*k0^5 - 3192*c^7*k0^6 + (252*I)*c^6*k0^7 + 9*c^5*k0^8))/(128*k0^5)}, 2, 11, 1]
Bessel transform mathematica results etc. Former-commit-id: 3dca9d0ccbfefa4c5f3867ce4ba31229646ca2d9 2018-01-15 15:14:15 +02:00			((21k^10 + 4k^8(105 - 32Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^2 + 112k^6(15 - 8Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^4 + 384k^4(7 - 5Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^6 + 128k^2(15 - 13Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^8 - 512(-1 + Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^10)/(40320k^7) - (21k^10 + 4k^8(105 - 32Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^2 + 112k^6(15 - 8Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^4 + 384k^4(7 - 5Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^6 + 128k^2(15 - 13Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^8 - 512(-1 + Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^10)/(8064k^7) + (21k^10 + 4k^8(105 - 32Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^2 + 112k^6(15 - 8Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^4 + 384k^4(7 - 5Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^6 + 128k^2(15 - 13Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^8 - 512(-1 + Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^10)/(4032k^7) - (21k^10 + 4k^8(105 - 32Sqrt[1 + k^2/(4c - Ik0)^2])(4c - Ik0)^2 + 112k^6(15 - 8Sqrt[1 + k^2/(4c - Ik0)^2])(4c - Ik0)^4 + 384k^4(7 - 5Sqrt[1 + k^2/(4c - Ik0)^2])(4c - Ik0)^6 + 128k^2(15 - 13Sqrt[1 + k^2/(4c - Ik0)^2])(4c - Ik0)^8 - 512(-1 + Sqrt[1 + k^2/(4c - Ik0)^2])(4c - Ik0)^10)/(4032k^7) + (21k^10 + 4k^8(105 - 32Sqrt[1 + k^2/(5c - Ik0)^2])(5c - Ik0)^2 + 112k^6(15 - 8Sqrt[1 + k^2/(5c - Ik0)^2])(5c - Ik0)^4 + 384k^4(7 - 5Sqrt[1 + k^2/(5c - Ik0)^2])(5c - Ik0)^6 + 128k^2(15 - 13Sqrt[1 + k^2/(5c - Ik0)^2])(5c - Ik0)^8 - 512(-1 + Sqrt[1 + k^2/(5c - Ik0)^2])(5c - Ik0)^10)/(8064k^7) - (21k^10 + 4k^8(105 - 32Sqrt[1 + k^2/(6c - Ik0)^2])(6c - Ik0)^2 + 112k^6(15 - 8Sqrt[1 + k^2/(6c - Ik0)^2])(6c - Ik0)^4 + 384k^4(7 - 5Sqrt[1 + k^2/(6c - Ik0)^2])(6c - Ik0)^6 + 128k^2(15 - 13Sqrt[1 + k^2/(6c - Ik0)^2])(6c - Ik0)^8 - 512(-1 + Sqrt[1 + k^2/(6c - Ik0)^2])(6c - Ik0)^10)/(40320k^7))/k0^5
			SeriesData[k, Infinity, {(7c^5)/k0^5, (-24(7c^6 - (2I)c^5k0))/k0^5, (105(38c^7 - (21I)c^6k0 - 3c^5k0^2))/(2k0^5), (-80(189c^8 - (152I)c^7k0 - 42c^6k0^2 + (4I)c^5k0^3))/k0^5, (1155(1087c^9 - (1134I)c^8k0 - 456c^7k0^2 + (84I)c^6k0^3 + 6c^5k0^4))/(16k0^5), (-32(8547c^10 - (10870I)c^9k0 - 5670c^8k0^2 + (1520I)c^7k0^3 + 210c^6k0^4 - (12I)c^5k0^5))/k0^5, (143(120332c^11 - (179487I)c^10k0 - 114135c^9k0^2 + (39690I)c^8k0^3 + 7980c^7k0^4 - (882I)c^6k0^5 - 42c^5k0^6))/(32k0^5), 0, (-715(443611c^13 - (847392I)c^12k0 - 721992c^11k0^2 + (358974I)c^10k0^3 + 114135c^9k0^4 - (23814I)c^8k0^5 - 3192c^7k0^6 + (252I)c^6k0^7 + 9c^5k0^8))/(128*k0^5)}, 2, 11, 1]