5 ？

Mathematica では Table[] が大活躍。 Maple では seq() が対応する。

	Maple	Mathematica
	t=seq(sin(Pi/n),n=1..4)	t=Table[Sin[Pi/n],{n,4}]
	リスト欲しけりゃ t=[seq(sin(Pi/n),n=1..4)]