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