This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A386975 #8 Aug 15 2025 18:18:20 %S A386975 1,2,14,183,3792,114780,4807728,267380071,19098388480,1705287529422, %T A386975 186174804704000,24402257980061599,3781731531452940288, %U A386975 684046276855242721368,142823583210894978115584,34092816821609506532859375,9226267072346511233190461440,2809774286001810901571097532538 %N A386975 a(n) is the permanent of the n X n matrix M_n with M_n(j,k) = j for j <> k, M_n(j,k) = n+j for j = k. %e A386975 a(5) = permanent(M_5) = 114780 where M_5 is the matrix %e A386975 [6, 1, 1, 1, 1] %e A386975 [2, 7, 2, 2, 2] %e A386975 [3, 3, 8, 3, 3] %e A386975 [4, 4, 4, 9, 4] %e A386975 [5, 5, 5, 5, 10] %t A386975 M[j_,k_,n_]:=If[j!=k,j,If[j==k,n+j]]; a[n_]:=Permanent[Table[M[i,j,n],{i,n},{j,n}]];Join[{1}, Array[a,17]] %o A386975 (PARI) a(n) = matpermanent(matrix(n, n, j, k, if (j==k, n+j, j))); \\ _Michel Marcus_, Aug 12 2025 %Y A386975 Cf. A174962 (determinants), A386974. %K A386975 nonn %O A386975 0,2 %A A386975 _Stefano Spezia_, Aug 11 2025