# How to print horizontal lists in TableForm?

How to print the table with the first column as $\{1,2,3\}$ instead of $\begin{array}{c} 1 \\ 2 \\ 3 \\\end{array}$?

a = {{1, 2, 3}, 1, 4, 9};
b = {{4, 6, 2}, 16, 36, 4};
TableForm[{a, b}]


The aim would be to handle the following example:

c = Table[{{i, i + 1, i + 3}, i + 4, i + 5, N[1/i]}, {i, 1, 34}];
TableForm[c]

-

Assuming that this it what you meant:

a = {HoldForm@{1, 2, 3}, 1, 4, 9};
b = {HoldForm@{4, 6, 2}, 16, 36, 4};
TableForm[{a, b}]


If you have a bigger list (see comment) you can do that:

c = Table[{{i, i + 1, i + 3}, i + 4, i + 5, N[1/i]}, {i, 1, 34}];
TableForm[Prepend[#[[2 ;;]], HoldForm@(Evaluate@First@#)] & /@ c]


Only the first 10 lines are shown bellow

-
Thank You, your solution is perfect!! but... I put onli 2 lineas ( a and b) but I have 60 or 80 lines y a list history, where each line is on the estyle {{1,2,3},4,5,0.21212,6,6} Could you edit with any sol to this case – Mika Ike May 5 '14 at 12:47
PERFECT!!!!!!!!! – Mika Ike May 5 '14 at 12:58

You can also do that as follows:

c = Table[{HoldForm@Evaluate[{i, i + 1, i + 3}], i + 4, i + 5,
N[1/i]}, {i, 1, 34}] // TableForm

-

Shorter solution

c = Table[{{i, i + 1, i + 3}, i + 4, i + 5, N[1/i]}, {i, 1, 34}];
TableForm[c, TableDepth -> 2]

-