A123913 Semiprimes with prime factors summing up to 100.

291, 979, 1411, 2059, 2419, 2491

Offset

0,1

Links

Table of n, a(n) for n=0..5.

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

Adjacent sequences: A123910 A123911 A123912 * A123914 A123915 A123916

Keyword

base,fini,full,nonn

Author

Tanya Khovanova, Oct 28 2006

Status

approved