problems = {HoldForm[

    FourierSequenceTransform[DiscreteDelta[n], n, \[Omega]]], 

   HoldForm[FourierSequenceTransform[1, n, \[Omega]]], 

   HoldForm[FourierSequenceTransform[E^(I a n), n, \[Omega]]], 

   HoldForm[FourierSequenceTransform[a^n UnitStep[n], n, \[Omega]]], 

   HoldForm[

    FourierSequenceTransform[(n + 1) a^n UnitStep[n], n, \[Omega]]], 

   HoldForm[FourierSequenceTransform[Cos[n], n, \[Omega]]]};

FormulaGallery[forms_List] := 

  Module[{vals = ParallelMap[ReleaseHold, forms]}, 

   Text@TraditionalForm@

     Grid[Table[{forms[[i]], "==", vals[[i]]}, {i, Length[forms]}], 

      Dividers -> {{True, False, False, True}, All}, 

      Alignment -> {{Right, Center, Left}, Baseline}, 

      Background -> LightYellow, Spacings -> {3, 3}]];

FormulaGallery[problems]