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