A108614 Semiprimes with non-semiprimes digits (no digits 4,6,9 in semiprimes).
10, 15, 21, 22, 25, 33, 35, 38, 51, 55, 57, 58, 77, 82, 85, 87, 111, 115, 118, 121, 122, 123, 133, 155, 158, 177, 178, 183, 185, 187, 201, 202, 203, 205, 213, 215, 217, 218, 221, 235, 237, 253, 278, 287, 301, 302, 303, 305, 321, 323, 327, 335, 355, 358, 371
Offset: 1
Crossrefs
Programs
-
Mathematica
cnd[n_]:=Plus@@Last/@FactorInteger[n]==2&&Union[FreeQ[IntegerDigits[n], # ]&/@{4, 6, 9}]=={True};Select[Range[600], cnd[ # ]&]
Comments