OFFSET
1,1
EXAMPLE
19635 = 3*5*7*11*17, 3+5+7+11+17 = 43, ..
MATHEMATICA
f[n_]:=Last/@FactorInteger[n]=={1, 1, 1, 1, 1}&&PrimeQ[Plus@@First/@FactorInteger[n]]; lst={}; Do[If[f[n], AppendTo[lst, n]], {n, 9!}]; lst
With[{nn=40}, Take[Union[Times@@#&/@Select[Subsets[Prime[Range[nn]], {5}], PrimeQ[Total[#]]&]], nn]] (* Harvey P. Dale, Aug 07 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jun 12 2010
STATUS
approved