OFFSET
1,6
EXAMPLE
n=10,p(10)=29 has 14 partitions of form a+b=29; 1+28=4+25=8+21=9+20=14+15 are the 5 relevant partitions, so a(10)=5.
MATHEMATICA
Table[c = 0; Do[If[i + j == Prime[n] && ! PrimeQ[i] && ! PrimeQ[j], c = c + 1], {i, Prime[n] - 1}, {j, i}]; c, {n, 72}] (* Jayanta Basu, Apr 22 2013 *)
cnpQ[{a_, b_}]:=(!PrimeQ[a]&&CompositeQ[b])||(!PrimeQ[b]&&CompositeQ[a]); Join[{1}, Table[Length[Select[IntegerPartitions[Prime[n], {2}], cnpQ]], {n, 2, 80}]] (* Harvey P. Dale, Sep 30 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 05 2001
EXTENSIONS
Offset and name corrected by Sean A. Irvine, Mar 25 2023
STATUS
approved