OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Goldbach Partition
Wikipedia, Goldbach's conjecture
EXAMPLE
12 is in the sequence since 12 = 7 + 5 (distinct primes), 7 = 5 + 2 (both prime) and 5 = 3 + 2 (both prime).
18 is in the sequence since 18 = 13 + 5 (distinct primes), 13 = 11 + 2 (both prime) and 5 = 3 + 2 (both prime).
MATHEMATICA
Table[If[Sum[(PrimePi[i - 2] - PrimePi[i - 3]) (PrimePi[2 n - i - 2] - PrimePi[2 n - i - 3]) (PrimePi[i] - PrimePi[i - 1]) (PrimePi[2 n - i] - PrimePi[2 n - i - 1]), {i, n - 1}] > 0, 2 n, {}], {n, 150}] // Flatten
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Wesley Ivan Hurt, Apr 16 2020
STATUS
approved