OFFSET
0,3
EXAMPLE
a(3) = 26:
[1, 1, 1]
[1, 3, 1]
[1, 1, 5]
MAPLE
a:= n-> `if`(n=0, 1, LinearAlgebra[Permanent](
Matrix(n, (i, j)-> igcd(2*i-1, 2*j-1)))):
seq(a(n), n=0..15); # Alois P. Heinz, Feb 05 2026
MATHEMATICA
a[n_]:=Permanent[Table[GCD[2i-1, 2j-1], {i, n}, {j, n}]]; Join[{1}, Array[a, 19]]
PROG
(PARI) a(n) = matpermanent(matrix(n, n, i, j, gcd(2*i-1, 2*j-1))); \\ Michel Marcus, Feb 06 2026
CROSSREFS
KEYWORD
nonn
AUTHOR
Stefano Spezia, Feb 05 2026
STATUS
approved
