Mathematica 8

A = Table[

Table[If[Mod[n, k] == 0, Exp[MangoldtLambda[n/k]], ""], {k, 1,

12}], {n, 1, 12}];

MatrixForm[A]

Row products of the matrix above are the natural numbers.

Advertisements

Mathematica 8

A = Table[

Table[If[Mod[n, k] == 0, Exp[MangoldtLambda[n/k]], ""], {k, 1,

12}], {n, 1, 12}];

MatrixForm[A]

Row products of the matrix above are the natural numbers.

Advertisements

This entry was posted in Uncategorized. Bookmark the permalink.

%d bloggers like this: