|
%I #7 Mar 23 2022 12:07:09
%S 2,4,6,8,10,12,14,16,18,20,22,24,26,28,30,32,36,38,40,42,48,50,54,56,
%T 60,66,70,72,78,80,84,90,96,108,110,120,126,132,138,140,150,180,210
%N Even numbers not representable as the sum of two coprime composite numbers.
%C 210 is the last term.
%t t = Table[Length[Select[Range[2, n/2], ! PrimeQ[#] && ! PrimeQ[n - #] && GCD[#, n - #] == 1 &]], {n, 2, 2000, 2}]; Flatten[2*Position[t, 0]] (* _T. D. Noe_, Dec 05 2013 *)
%Y This sequence is a superset of A141096. See A141097.
%K nonn,fini,full
%O 1,1
%A _T. D. Noe_, Jun 02 2008
|
