A352229 Numbers that can be expressed as the sum of two primes in exactly 7 ways.
78, 96, 112, 130, 140, 176, 178, 194, 206, 208, 218, 224, 226, 232, 272, 278, 326, 398
Offset: 1
Examples
78 = 5+73 = 7+71 = 11+67 = 17+61 = 19+59 = 31+47 = 37+41.
Crossrefs
Programs
-
Mathematica
c[n_] := Count[IntegerPartitions[n, {2}], ?(And @@ PrimeQ[#] &)]; Select[Range[1000], c[#] == 7 &] (* _Amiram Eldar, Mar 08 2022 *)