login
Numbers containing at least one composite digit.
2

%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