A123913 - OEIS

%I #2 Mar 30 2012 18:49:08

%S 291,979,1411,2059,2419,2491

%N Semiprimes with prime factors summing up to 100.

%e 291 = 3*97 - 3 and 97 are both primes summing up to 100.

%t Table[Select[Range[50], PrimeQ[ # ] && PrimeQ[100 - # ] &] [[k]]*(100 - Select[Range[50], PrimeQ[ # ] && PrimeQ[100 - # ] &] [[k]]), {k, 6}]

%K base,fini,full,nonn

%O 0,1

%A _Tanya Khovanova_, Oct 28 2006