A085816 Semiprimes such that the sum of the factorials of the digits is also semiprime.

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

Links

Table of n, a(n) for n=1..53.

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

Adjacent sequences: A085813 A085814 A085815 * A085817 A085818 A085819

Keyword

base,easy,nonn

Author

Jason Earls, Jul 25 2003

Status

approved