A232721 Numbers not representable as the sum of two coprime nonprime numbers.
1, 3, 4, 6, 8, 12, 14, 18, 20, 24, 30, 32, 38, 42, 48, 54, 60, 72, 80, 84, 90, 108, 110, 132, 138, 140, 150, 180
Offset: 1
Programs
-
Mathematica
t = Table[Length[Select[Range[n/2], ! PrimeQ[#] && ! PrimeQ[n - #] && GCD[#, n - #] == 1 &]], {n, 2000}]; Flatten[Position[t, 0]] (* T. D. Noe, Dec 05 2013 *)
Comments