A208271 Nonprime numbers containing a digit 1.
1, 10, 12, 14, 15, 16, 18, 21, 51, 81, 91, 100, 102, 104, 105, 106, 108, 110, 111, 112, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 128, 129, 130, 132, 133, 134, 135, 136, 138, 140, 141, 142, 143, 144, 145, 146, 147, 148, 150, 152, 153
Offset: 1
Programs
-
Mathematica
Select[Range[200], ! PrimeQ[#] && MemberQ[IntegerDigits[#], 1] &] (* T. D. Noe, Mar 06 2012 *)
Comments