OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Prime Partition.
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 *)
PROG
(Haskell)
a051035 n = a051035_list !! (n-1)
a051035_list = filter ((== 0) . a010051) a014091_list
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved