OFFSET
1,1
EXAMPLE
84 = 5+79 = 11+73 = 13+71 = 17+67 = 23+61 = 31+53 = 37+47 = 41+43.
MATHEMATICA
c[n_] := Count[IntegerPartitions[n, {2}], _?(And @@ PrimeQ[#] &)]; Select[Range[1000], c[#] == 8 &] (* Amiram Eldar, Mar 08 2022 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Wesley Ivan Hurt, Mar 08 2022
STATUS
approved