2*pi*Integrate[f^a * BesselJ[0, k * f] * f, f, 0, m]