problems = {x^3 + 1, (x + 1)/(x - 1), Sin[x], BesselJ[a, x], Sqrt[

   1 + Sqrt[x - 1]], x  Exp[x] + Sin[x] , Log[2 x + 1]^2 , 

   Sin[Sqrt[x^2 + 1]], AiryAi[1/(x^2 + 1)]};

FormulaGallery[forms_List] := 

 Module[{vals = ParallelMap[DifferentialRootReduce[#, x] &, forms]}, 

  Text@TraditionalForm@

    Grid[Table[{forms[[i]], First[vals[[i]][[0, 1]][y, x]]}, {i, 

       Length[forms]}], Dividers -> All, 

     Alignment -> {Left, Baseline}, Background -> LightYellow, 

     Spacings -> {1, 2}]]

FormulaGallery[problems]