login
A123913
Semiprimes with prime factors summing up to 100.
0
291, 979, 1411, 2059, 2419, 2491
OFFSET
0,1
EXAMPLE
291 = 3*97 - 3 and 97 are both primes summing up to 100.
MATHEMATICA
Table[Select[Range[50], PrimeQ[ # ] && PrimeQ[100 - # ] &] [[k]]*(100 - Select[Range[50], PrimeQ[ # ] && PrimeQ[100 - # ] &] [[k]]), {k, 6}]
CROSSREFS
Sequence in context: A031515 A352536 A090890 * A031695 A158254 A088892
KEYWORD
base,fini,full,nonn
AUTHOR
Tanya Khovanova, Oct 28 2006
STATUS
approved