|
%I #6 Sep 06 2018 17:35:17
%S 4,6,8,9,14,16,18,19,24,26,28,29,34,36,38,39,40,41,42,43,44,45,46,47,
%T 48,49,54,56,58,59,60,61,62,63,64,65,66,67,68,69,74,76,78,79,80,81,82,
%U 83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,104,106,108,109,114
%N Numbers containing at least one composite digit.
%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>.
%t Select[Range[120],ContainsAny[IntegerDigits[#],{4,6,8,9}]&] (* _Harvey P. Dale_, Sep 06 2018 *)
%Y Cf. A118950, A011540, A011531.
%K base,nonn,easy
%O 1,1
%A _Rick L. Shepherd_, May 06 2006
|
