OFFSET
4,1
LINKS
Seiichi Manyama, Rows n = 4..374, flattened
Eric Weisstein's World of Mathematics, Goldbach Partition
Wikipedia, Goldbach's conjecture
EXAMPLE
n | (p,q)
---+----------------------------
4 | (3, 5);
5 | (3, 7);
6 | (5, 7);
7 | (3, 11);
8 | (3, 13), (5, 11);
9 | (5, 13), (7, 11);
10 | (3, 17), (7, 13);
11 | (3, 19), (5, 17);
12 | (5, 19), (7, 17), (11, 13);
MATHEMATICA
row[n_] := Select[Table[{p, 2 n - p}, {p, Prime[Range[PrimePi[n]]]}], Less @@ # && AllTrue[#, PrimeQ]&] // Union;
Table[row[n], {n, 4, 25}] // Flatten (* Jean-François Alcover, Jun 16 2018 *)
CROSSREFS
KEYWORD
AUTHOR
Seiichi Manyama, Jun 13 2018
STATUS
approved