OFFSET
1,1
COMMENTS
LINKS
Corinna Regina Böger, Table of n, a(n) for n = 1..12831
EXAMPLE
32 is in the sequence because 32 has two Goldbach partitions: 32 = 3 + 29 with 3 < sqrt(16) and 32 = 13 + 19 with 13 > sqrt(32).
MATHEMATICA
noGoldbatSqrQ[n_] := Block[{p = NextPrime[Sqrt[n/2]]}, While[2p < n && !PrimeQ[n - p], p = NextPrime@ p]; p > Sqrt[n]]; noGoldbatSqrQ[4] = True; Select[2Range[107], noGoldbatSqrQ] (* Robert G. Wilson v, Dec 15 2016 *)
PROG
(PARI) noSpecialGoldbach(n) = forprime(p=sqrtint(n/2-1) + 1, sqrtint(n), if(p<(n-p) && isprime(n-p), return(0))); 1
is(n) = n%2 == 0 && noSpecialGoldbach(n)
CROSSREFS
KEYWORD
nonn
AUTHOR
Corinna Regina Böger, Dec 11 2016
STATUS
approved