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

Offset: 2

Author

Michel Eduardo Beleza Yamagishi, Jun 23 2025

Keywords

• nonn

Crossrefs

Partial sums of A020482.

Programs

Mathematica

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

Formula

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