OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) not isprime(n) and member(2, convert(n, base, 10)) end proc:
select(filter, [$4..300]); # Robert Israel, Oct 09 2024
MATHEMATICA
Select[Range[300], ! PrimeQ[#] && MemberQ[IntegerDigits[#], 2] &] (* T. D. Noe, Mar 06 2012 *)
Select[Range[300], CompositeQ[#]&&DigitCount[#, 10, 2]>0&] (* Harvey P. Dale, Sep 08 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Mar 04 2012
STATUS
approved