OFFSET
1,3
LINKS
Eric Weisstein's World of Mathematics, Goldbach Partition
Wikipedia, Goldbach's conjecture
FORMULA
a(n) = Sum_{i=3..n} (i * c(i) * c(2n-i) * (Product_{k=i..n} (1-abs(c(k)-c(2n-k))))), where c = A010051.
MAPLE
MATHEMATICA
Table[Sum[(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}], {n, 100}] (* Michael De Vlieger, Dec 18 2016 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Wesley Ivan Hurt, Dec 17 2016
STATUS
approved