OFFSET
1,1
COMMENTS
Complement of 108631 in the class of semiprimes.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
fQ[n_]:=Plus@@Last/@FactorInteger[n]==2&&Union[{2, 3, 5, 7}, IntegerDigits[n]]=={2, 3, 5, 7}; Select[Range[4000], fQ[ # ]&]
Select[FromDigits/@Flatten[Table[Tuples[{2, 3, 5, 7}, n], {n, 2, 4}], 1], PrimeOmega[#]==2&] (* Harvey P. Dale, Oct 19 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Jun 13 2005
STATUS
approved