OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Goldbach Partition
Wikipedia, Goldbach's conjecture
MATHEMATICA
Flatten[Table[If[1 - PrimePi[n] + PrimePi[n - 1] - Sum[KroneckerDelta[PrimePi[i] + 1, PrimePi[2 n - i]] (PrimePi[i] - PrimePi[i - 1]) (PrimePi[2 n - i] - PrimePi[2 n - i - 1]), {i, n}] > 0, 2 n, {}], {n, 100}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Apr 11 2020
STATUS
approved