How to convert the output of the following code
In[43]:= Func[x_]:=Select[Range[x],Total[IntegerDigits[#]^3]==#&];
Func[1000]
which is
Out[44]= {1,153,370,371,407}
to the following form
such that I can copy it and paste to my LaTeX document without significant hassle.
Edit
I want the output of Mathematica to be consumable for LaTeX engine.
1^3 & 1\\
1^3+5^3+3^3 & 153\\
3^3+7^3+0^3 & 370\\
3^3+7^3+1^3 & 371\\
4^3+0^3+7^3 & 407\\
TeXForm
? E.g.Grid[{{a, b, c}, {x, y^2, z^3}}, Frame -> All] // TeXForm
... $\endgroup$