|
%I #15 Jun 02 2017 00:33:28
%S 9,33,39,77,91,93,99,111,113,117,119,133,171,177,319,333,339,371,377,
%T 391,393,399,711,713,717,731,737,771,777,779,791,793,799,913,917,931,
%U 933,939,973,979,993,999
%N Composite numbers whose digits are restricted to 1, 3, 7, and 9.
%t Select[Flatten@ Array[FromDigits /@ Tuples[{1, 3, 7, 9}, #] &, 3], CompositeQ] (* _Michael De Vlieger_, Jun 01 2017 *)
%Y Cf. A091633, A136333.
%K nonn,base
%O 1,1
%A _Luke Zieroth_, May 26 2017
|
