A066722 Numbers that can be expressed as the sum of two primes in exactly six ways.
60, 66, 72, 100, 106, 110, 116, 118, 134, 146, 166, 172, 182, 212, 248, 332
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
y = Select[Flatten@Table[Prime[i] + Prime[ j], {i, 500}, {j, 1, i}], # < Prime[500] &]; Select[Union[y], Count[y, #] == 6 &] (* Robert Price, Apr 22 2025 *)
Comments