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 A071082 #12 Jun 27 2024 01:37:53 %S A071082 1,-7,39,-231,1175,-6404,34516,-194372,914065,-4380707,19511875, %T A071082 -48269825,364029100,-2195115952,13627012744,-115725814173, %U A071082 792363218461,-5961225064275,50261904138348,-425928565835370,3704468293623774,-34926740161083290,389473974875205556 %N A071082 Determinant of the n X n matrix whose element (i,j) equals the (i-j)-th composite number, (j-i)-th prime number, or 1 if i=j. %t A071082 Composite[n_Integer] := FixedPoint[n + PrimePi[ # ] + 1 &, n + PrimePi[n] + 1]; f[n_] := Det[ Table[ If[i == j, 1, If[i > j, Composite[i - j], Prime[j - i]]], {i, 1, n}, {j, 1, n}]]; Table[ f[n], {n, 1, 20}] %Y A071082 Cf. A071078, A071079. %K A071082 sign %O A071082 1,2 %A A071082 _Robert G. Wilson v_, May 26 2002 %E A071082 More terms from _Sean A. Irvine_, Jun 27 2024