A123093 Numbers which are not the sum of two 3-almost primes.
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 17, 18, 19, 21, 22, 23, 25, 27, 29, 31, 33, 34, 37, 41, 43, 44, 49, 51, 59, 61, 66, 67, 85, 99, 101, 109, 163
Offset: 1
Programs
-
Mathematica
nn=10000; t3=Select[Range[2,nn], Plus@@Last/@FactorInteger[ # ]==3&]; t3sum=Table[0,{nn}]; Do[n=t3[[i]]+t3[[j]]; If[n<=nn, t3sum[[n]]=1], {i,Length[t3]}, {j,i,Length[t3]}]; Flatten[Position[t3sum,0]] (* T. D. Noe, Nov 06 2006 *)
Extensions
Edited by T. D. Noe, Nov 06 2006
Comments