7.3 Problem number 1319

(c(dtan(e+fx))p)n(a+iatan(e+fx))2dx

Optimal antiderivative a2tan(fx+e)(c(dtan(fx+e))p)nf(np+1)+2a2hypergeom([1,np+1],[np+2],Itan(fx+e))tan(fx+e)(c(dtan(fx+e))p)nf(np+1)

command

Integrate[(c*(d*Tan[e + f*x])^p)^n*(a + I*a*Tan[e + f*x])^2,x]

Mathematica 13.1 output

(c(dtan(e+fx))p)n(a+iatan(e+fx))2dx

Mathematica 12.3 output

a2e2ie2np(i(1+e2i(e+fx))1+e2i(e+fx))np+1(cos(e+fx)+isin(e+fx))2(2np+(1+e2i(e+fx))np+12F1(np+1,np+1;np+2;12(1e2i(e+fx))))tannp(e+fx)(c(dtan(e+fx))p)n(fnp+f)(cos(fx)+isin(fx))2