|
%I
%S 14,15,22,25,51,82,115,118,121,123,141,145,146,158,166,177,185,201,
%T 203,205,206,213,215,218,254,259,265,295,302,321,323,407,411,415,417,
%U 451,471,481,482,501,502,511,514,517,526,529,542,562,581,614,671,706,707
%N Semiprimes such that the sum of the factorials of the digits is also semiprime.
%t Select[Select[Range[1000],PrimeOmega[#]==2&],PrimeOmega[Total[ IntegerDigits[ #]!]] == 2&] (* _Harvey P. Dale_, Jul 13 2011 *)
%K base,easy,nonn
%O 1,1
%A _Jason Earls_, Jul 25 2003
|
