OFFSET
3,1
LINKS
Eric Weisstein's World of Mathematics, Goldbach Partition
MATHEMATICA
T[n_, k_] := Module[{p}, For[p = 2, p < 2n && p < 2k, p = NextPrime[p], If[PrimeQ[2n - p] && PrimeQ[2k - p], Return[p]]]; 0];
Table[T[n, k], {n, 3, 16}, {k, 3, n}] // Flatten (* Jean-François Alcover, Sep 22 2021 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Reinhard Zumkeller, Sep 14 2006
STATUS
approved