OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..1000
MAPLE
f:= (i, j) -> numtheory:-tau(i+j-1): A056225:= n -> LinearAlgebra:-Determinant(Matrix(n, n, f)):
map(A056225, [$1..100]); # Robert Israel, Dec 08 2017
MATHEMATICA
f[n_] := Det@Table[DivisorSigma[0, (i + j - 1)], {i, n}, {j, n}]; Array[f, 44] (* Robert G. Wilson v, Dec 08 2017 *)
CROSSREFS
KEYWORD
sign,easy
AUTHOR
N. J. A. Sloane, Aug 06 2000
EXTENSIONS
More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 05 2003
More terms from Robert Israel, Dec 08 2017
STATUS
approved