OFFSET
1,4
LINKS
Eric Weisstein's World of Mathematics, Goldbach Partition
Wikipedia, Goldbach's conjecture
FORMULA
MAPLE
with(numtheory): a:=n->add(add( (pi(i)-pi(i-1)) * (pi(2*h-i)-pi(2*h-i-1)) * (pi(2*h-i)-pi(i-1)) * (product(1-abs((pi(k)-pi(k-1))-(pi(2*h-k)-pi(2*h-k-1))), k=i..h)), i=3..h), h=1..n): seq(a(n), n=1..80);
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Wesley Ivan Hurt, Dec 15 2016
STATUS
approved