Wie wär's damit?
Teiler=4;
Table[Binomial[n, #] & /@ Range[0, n], {n, 2 Teiler}]^2//MatrixForm
Ein gutes Neues Jahr wünscht
Wolfgang Ludwig
Uta & Peter Klamser schrieb:
> Hallo, Ihr Lieben, eine Kopfnuss zum neuen Jahr.
>
> Wer kann mir die Bildungsregel für die folgende Tabelle nennen, welche mit
> der im Notebook aufgeführte Rekursikon errechnet wurde:
>
> {{1}, {1, 1}, {1, 4, 1}, {1, 9, 9, 1}, {1, 16, 36, 16, 1}, {1, 25, 100, 100,
> 25, 1}, {1, 36, 225, 400, 225, 36, 1}, {1, 49, 441, 1225, 1225, 441, 49,
> 1}, {1, 64, 784, 3136, 4900, 3136, 784, 64, 1}}
>
> Gruß, Peter Klamser
>
> ------------------------------------------------------------------------
> Name: puffer 14.nb
> puffer 14.nb Type: Mathematica 2.2 Notebook (application/mathematica)
> Encoding: quoted-printable
DMUG-Archiv, http://www.mathematica.ch/archiv.html