A051035 Composite numbers which can be represented as the sum of two primes (i.e., A002808 excluding A025583).

4, 6, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 22, 24, 25, 26, 28, 30, 32, 33, 34, 36, 38, 39, 40, 42, 44, 45, 46, 48, 49, 50, 52, 54, 55, 56, 58, 60, 62, 63, 64, 66, 68, 69, 70, 72, 74, 75, 76, 78, 80, 81, 82, 84, 85, 86, 88, 90, 91, 92, 94, 96, 98, 99, 100, 102, 104, 105

Offset: 1

Author

Eric W. Weisstein

Keywords

• nonn

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
• Eric Weisstein's World of Mathematics, Prime Partition.

Crossrefs

Cf. A002808, A025583.

Cf. A010051, subsequence of A014092.

Programs

Haskell

a051035 n = a051035_list !! (n-1)
a051035_list = filter ((== 0) . a010051) a014091_list

Mathematica

r[n_] := Reduce[2 <= p <= q && n == p + q, {p, q}, Primes]; Select[Range[4, 105], r[#] =!= False && ! PrimeQ[#] & ] (* Jean-François Alcover, Oct 29 2012 *)