login
A085816
Semiprimes such that the sum of the factorials of the digits is also semiprime.
0
14, 15, 22, 25, 51, 82, 115, 118, 121, 123, 141, 145, 146, 158, 166, 177, 185, 201, 203, 205, 206, 213, 215, 218, 254, 259, 265, 295, 302, 321, 323, 407, 411, 415, 417, 451, 471, 481, 482, 501, 502, 511, 514, 517, 526, 529, 542, 562, 581, 614, 671, 706, 707
OFFSET
1,1
MATHEMATICA
Select[Select[Range[1000], PrimeOmega[#]==2&], PrimeOmega[Total[ IntegerDigits[ #]!]] == 2&] (* Harvey P. Dale, Jul 13 2011 *)
CROSSREFS
Sequence in context: A075658 A047821 A195238 * A090066 A084429 A207036
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls, Jul 25 2003
STATUS
approved