OFFSET
1,4
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Eric Weisstein's World of Mathematics, Goldbach Partition
Wikipedia, Goldbach's conjecture
MAPLE
with(numtheory): a:=n->2*add(add( (pi(i)-pi(i-1)) * (pi(2*k-i)-pi(2*k-i-1)) * (k-i), i=3..k), k=1..n): seq(a(n), n=1..100);
MATHEMATICA
Accumulate@ Table[2 Sum[Boole[PrimeQ@ i] Boole[PrimeQ[2 n - i]] (n - i), {i, 3, n}], {n, 56}] (* Michael De Vlieger, Dec 17 2016 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Wesley Ivan Hurt, Dec 17 2016
STATUS
approved