FUN1[X_?NumericQ] := Parallelize[Sum[(-1)^(K2 - M1 - M2) I^(P1 + P2)
   (2 P1 + 1) (2 P2 + 1)Sqrt[((2 L1 + 1) (2 L2 + 1))/((2 Λ1 +1) (2 Λ2 + 1))]
   SphericalBesselJ[P1, -M1*140*X] SphericalBesselJ[P2, -M2*140*X]
   SphericalHarmonicY[L1, -M1, Pi/2, 0] SphericalHarmonicY[L2, -M2, Pi/2, 0]
   ClebschGordan[{70, 70}, {L1, 0}, {70, 70}]
   ClebschGordan[{70, 70}, {L2, 0}, {70, 70}]
   ClebschGordan[{P1, 0}, {L1, 0}, {Λ1, 0}]
   ClebschGordan[{P2, 0}, {L2, 0}, {Λ2, 0}]
   ClebschGordan[{P1, 0}, {L1, M1}, {Λ1, K1}]
   ClebschGordan[{P2, 0}, {L2, M2}, {Λ2,  K2}]
   KroneckerDelta[Λ1, Λ2] KroneckerDelta[-K1, K2],
 {L1, 0, 140}, {M1, -L1, L1}, {P1, 0, 280}, {Λ1, Abs[P1 - L1], P1 + L1},
  {K1, -Λ1, Λ1}, {L2, 0,  140}, {M2, -L2, L2}, {P2, 0, 280},
  {Λ2, Abs[P2 - L2], P2 + L2}, {K2, -Λ2, Λ2}]]