editing
approved
editing
approved
Flatten[Table[FromDigits/@Tuples[{4, 6, 9}, n], {n, 4}]] (* Harvey P. Dale, Oct 21 2014 *)
approved
editing
Select[Range[5000], Union[Pick[DigitCount[#], {1, 1, 1, 0, 1, 0, 1, 1, 0, 1}, 1]] == {0}&] (* From _Harvey P. Dale, _, Oct 21 2011 *)
_Rick L. Shepherd (rshepherd2(AT)hotmail.com), _, May 19 2005
editing
approved
Select[Range[5000], Union[Pick[DigitCount[#], {1, 1, 1, 0, 1, 0, 1, 1, 0, 1}, 1]] == {0}&] (* From Harvey P. Dale, Oct 21 2011 *)
approved
editing
Numbers whose digits are all semiprime (digits 4, 6, 9 only).
4, 6, 9, 44, 46, 49, 64, 66, 69, 94, 96, 99, 444, 446, 449, 464, 466, 469, 494, 496, 499, 644, 646, 649, 664, 666, 669, 694, 696, 699, 944, 946, 949, 964, 966, 969, 994, 996, 999, 4444, 4446, 4449, 4464, 4466, 4469, 4494, 4496, 4499, 4644, 4646, 4649, 4664
1,1
base,nonn
Rick L. Shepherd (rshepherd2(AT)hotmail.com), May 19 2005
approved