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 A363671 #11 Aug 02 2023 11:48:22
%S A363671 1,1,2,2,3,4,1,3,4,5,2,3,5,6,7,1,3,4,6,7,8,2,3,5,6,8,9,10,3,5,6,8,9,
%T A363671 11,12,13,1,4,6,7,9,10,12,13,14,3,4,7,9,10,12,13,15,16,17,2,5,6,9,11,
%U A363671 12,14,15,17,18,19,1,3,6,7,10,12,13,15,16,18,19
%N A363671 Triangular array: row n lists the numbers k such that prime(n+2)-2*k is a prime.
%e A363671 First 10 rows:
%e A363671 1
%e A363671 1 2
%e A363671 2 3 4
%e A363671 1 3 4 5
%e A363671 2 3 5 6 7
%e A363671 1 3 4 6 7 8
%e A363671 2 3 5 6 8 9 10
%e A363671 3 5 6 8 9 11 12 13
%e A363671 1 4 6 7 9 10 12 13 14
%e A363671 3 4 7 9 10 12 13 15 16 17
%e A363671 For row 6, we have prime(8) = 19, and prime 19-2*k is prime for these k: 1, 3, 4, 6, 7, 8.
%t A363671 m[p_] := Select[Range[400], PrimeQ[p - 2 #] && p > 2 # &]
%t A363671 t = Table[m[Prime[n]], {n, 3, 30}]
%t A363671 TableForm[t] (* this sequence as an array *)
%t A363671 Flatten[t] (* this sequence *)
%Y A363671 Cf. A000040, A028334 (column 1), A067076 (last numbers in rows), A363672.
%K A363671 nonn,tabl
%O A363671 1,3
%A A363671 _Clark Kimberling_, Jun 15 2023