OFFSET
1,4
LINKS
Eric Weisstein's World of Mathematics, Goldbach Partition
Wikipedia, Goldbach's conjecture
MAPLE
MATHEMATICA
f[n_] := Sum[ Boole[ PrimeQ[ i]] Boole[ PrimeQ[ 2n -i]] (PrimePi[ 2n -i] - PrimePi[i -1]), {i, 2, n}]; f[2] = 0; Array[ f, 80] (* Robert G. Wilson v, Dec 15 2016 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Wesley Ivan Hurt, Dec 12 2016
STATUS
approved