OFFSET
1,3
LINKS
Eric Weisstein's World of Mathematics, Goldbach Partition
Wikipedia, Goldbach's conjecture
MAPLE
MATHEMATICA
f[n_, x_: 0] := Sum[(If[x == 0, i, 2 n - i] Boole[PrimeQ@ i] Boole[PrimeQ[2 n - i]]) Product[1 - Abs[Boole[PrimeQ@ k] - Boole[PrimeQ[2 n - k]]], {k, i, n}], {i, 3, n}]; Accumulate@ Table[f@ n + f[n, 1], {n, 50}] (* Michael De Vlieger, Dec 18 2016 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Wesley Ivan Hurt, Dec 17 2016
STATUS
approved