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