Explorations of Integrals

F={Log[2+3x^2],x^(1/3)*Log[x],Sqrt[x]*ArcTan[Sqrt[x]],
Exp[x]*Sin[2x],Exp[-x]*(x+2),4^(-x)*(x+3),
x*Log[x]^2,ArcTan[Sqrt[4x-1]],(4x+1)*Cos[2x],(x+5)*Sin[3x]};
Grid[Table[Plot[{F[[i+5*(j-1)]],
Evaluate[Integrate[F[[i+5*(j-1)]],x]]},
{x,0,1},ImageSize->{400,200},PlotLabel->TraditionalForm[F[[i]]]->
TraditionalForm[Integrate[F[[i]],x]]],{i,5},{j,2}]]