This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A380546 #30 Jun 24 2025 15:13:10 %S A380546 2,5,10,17,24,35,48,61,78,97,116,139,162,185,214,245,276,307,344,381, %T A380546 422,465,508,555,602,649,702,755,808,867,928,989,1050,1117,1184,1255, %U A380546 1328,1401,1474,1553,1632,1715,1798,1881,1970,2059,2148,2227,2324,2421,2522 %N A380546 Cumulative sum of the greatest prime in the minimal Goldbach partition for 2*n, n>=2. %F A380546 a(2) = A020482(2) and a(n) = a(n-1) + A020482(n) for n>2. %t A380546 GoldbachMaxPrimeCumSum[N_] := If[N < 4, {}, Accumulate[Table[n - Select[Prime[Range[PrimePi[n]]], PrimeQ[n - #] &, 1][[1]], {n, 4, N, 2}]]] %Y A380546 Partial sums of A020482. %K A380546 nonn %O A380546 2,1 %A A380546 _Michel Eduardo Beleza Yamagishi_, Jun 23 2025