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