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