# How to convert the following list into a LaTeX table?

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\\

-
Do you want to generate the first column or are you after the $LaTeX$ export part? –  Yves Klett Dec 30 '13 at 17:04
@YvesKlett: The table contents must be generated by Mathematica so I can just copy and paste. –  cyanide-based food Dec 30 '13 at 17:06
You are aware of TeXForm? E.g. Grid[{{a, b, c}, {x, y^2, z^3}}, Frame -> All] // TeXForm ... –  Yves Klett Dec 30 '13 at 17:08
@YvesKlett: Please show me how can you decompose each element of the list into the sum of cubes and make sure it is not evaluated. –  cyanide-based food Dec 30 '13 at 17:11
Please add that info to your question to help understand it better. –  Yves Klett Dec 30 '13 at 17:14

## 1 Answer

Modding the plus part from here, this could be a (somewhat awkward because you get more array than you asked for) start:

Func[x_] := Select[Range[x], Total[IntegerDigits[#]^3] == # &];
nums = Func[1000];

plus[args__] := Grid[{Riffle[{args}, "+"]}]

g = Grid[{plus @@ (IntegerDigits[#] /. x_Integer :> HoldForm[x^3]) & /@
nums, nums} // Transpose]


TeXForm[g]


returns unnecessarily complicated output, which compiles just fine (and looks indeed much better than standard frontend output).

As for further styling, this is perhaps better done in your document - unless you have to do that many times over, in which case you could roll your own MyOwnTeXForm.

Side note: If everything else fails, you can install the Computer Modern fonts and use them with Style to do all the formatting in the frontend - and then export an image (not pretty, but it works).

-
Strange thing that Row[{args}, "+"] produces errors during converting to TeX. Moreover, Dividers result in not good TeX output. But your code is ok and adding dividers in TeX is not a big deal I suppose. –  Kuba Dec 30 '13 at 17:58
@Kuba yes, that was the reason to switch over to Grid. –  Yves Klett Dec 30 '13 at 18:07