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 A360206 #15 Feb 01 2023 08:17:08 %S A360206 -1,0,1,0,3,3,2,3,5,5,0,3,3,5,7,2,3,5,9,7,11,0,3,7,7,9,11,9,2,7,7,11, %T A360206 11,11,11,15,4,5,9,11,9,11,13,17,15,0,5,7,7,7,11,13,13,15,13,4,7,7,9, %U A360206 11,15,13,17,17,13,17,2,3,5,9,11,11,13,15,13,13 %N A360206 Triangular array T(m,n) read by antidiagonals: T(m,n) = prime(m+n) - prime(m) - prime(n). %F A360206 T(m,n) = prime(m+n) - prime(m) - prime(n). %e A360206 First seven rows: %e A360206 -1 %e A360206 0 1 %e A360206 0 3 3 %e A360206 2 3 5 5 %e A360206 0 3 3 3 7 %e A360206 2 3 5 9 7 11 %e A360206 0 3 7 7 9 11 9 %e A360206 T(4,3) = prime(7) - prime(4) - prime(3) = 17 - 7 - 5 = 5. %t A360206 p[n_] := Prime[n]; %t A360206 t = Table[p[m + n] - p[m] - p[n], {m, 1, 15}, {n, 1, m}] %t A360206 Flatten[t] (* A360206 sequence *) %t A360206 TableForm[t] (* A360206 array *) %Y A360206 Cf. A000040, A066066 (right diagonal). %K A360206 tabl,sign %O A360206 1,5 %A A360206 _Clark Kimberling_, Jan 30 2023