OFFSET
1,2
MATHEMATICA
Select[Range[200], ! PrimeQ[#] && MemberQ[IntegerDigits[#], 1] &] (* T. D. Noe, Mar 06 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Mar 04 2012
STATUS
approved