A380546 - OEIS

A380546

Cumulative sum of the greatest prime in the minimal Goldbach partition for 2*n, n>=2.

2, 5, 10, 17, 24, 35, 48, 61, 78, 97, 116, 139, 162, 185, 214, 245, 276, 307, 344, 381, 422, 465, 508, 555, 602, 649, 702, 755, 808, 867, 928, 989, 1050, 1117, 1184, 1255, 1328, 1401, 1474, 1553, 1632, 1715, 1798, 1881, 1970, 2059, 2148, 2227, 2324, 2421, 2522

(list; graph; refs; listen; history; text; internal format)

OFFSET

2,1

LINKS

Table of n, a(n) for n=2..52.

FORMULA

a(2) = A020482(2) and a(n) = a(n-1) + A020482(n) for n>2.

MATHEMATICA

GoldbachMaxPrimeCumSum[N_] := If[N < 4, {}, Accumulate[Table[n - Select[Prime[Range[PrimePi[n]]], PrimeQ[n - #] &, 1][[1]], {n, 4, N, 2}]]]

CROSSREFS

Partial sums of A020482.

Sequence in context: A230429 A340039 A003192 * A018682 A393679 A375703