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 A109679 #12 Feb 16 2025 08:32:58
%S A109679 2,4,10,22,34,48,60,78,84,90,114,120,168,180,210,300,330,390,420,510,
%T A109679 630,780,840,990,1050,1140,1260,1470,1650,1680,1890,2100,2310,2730,
%U A109679 3150,3570,3990,4200,4410,4620,5250,5460,6090,6510,6930,7980,8190,9030,9240
%N A109679 Smallest even number which is the unordered sum of two primes in more ways than any previous even number.
%C A109679 Record value of A023036 or A045917.
%C A109679 a(n)== 0 (mod 30) for n > 13.
%H A109679 Vincenzo Librandi, <a href="/A109679/b109679.txt">Table of n, a(n) for n = 1..150</a>
%H A109679 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/GoldbachPartition.html">Goldbach Partition</a>
%H A109679 <a href="/index/Go#Goldbach">Index entries for sequences related to Goldbach conjecture</a>
%t A109679 f[n_] := Length[ Select[n - Prime@ Range@ PrimePi[n/2], PrimeQ]]; t = {}; mxm = -1; Do[ If[ f[n] > mxm, AppendTo[t, n]; mxm = f[n]], {n, 2, 9000, 2}]; t
%Y A109679 Essentially the same as A082917. Cf. A082918, A002375, A023036, A045917, A000954.
%K A109679 nonn
%O A109679 1,1
%A A109679 Gilmar Rodriguez Pierluissi (gilmarlily(AT)yahoo.com), Aug 30 2005
%E A109679 Edited and extended by _Robert G. Wilson v_, Sep 08 2005
%E A109679 Changed offset from 0 to 1 by _Vincenzo Librandi_, Apr 18 2013