Question

mathematica用循环如何输出一维列表？

mathematica用循环如何输出一维列表？
例： Do[Print[{5*i*j+1},{i,2},{j,3}]输出的是：
{6}
{11]
{16}
{11}
{21]
{31}
那么，怎样命令才能输出 一维形式{6，11，16，11，21，31} ，菜鸟多谢各位老师！

Answer 1

构造列表用什么Do啊，用Table啊，Table：
Flatten@Table[5*i*j + 1, {i, 2}, {j, 3}]

非要用Do就这样：
Last@Last@Reap@Do[Sow[5*i*j + 1], {i, 2}, {j, 3}]

还可以这样：
c = {};
Do[b = 5*i*j + 1; c = Append[c, b], {i, 2}, {j, 3}]

看起来差不多但其实大不相同并且更慢的，就这样：
a = {};
Do[b = 5*i*j + 1; AppendTo[a, b], {i, 2}, {j, 3}]