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
KEYWORD
base,fini,full,nonn
AUTHOR
Tanya Khovanova, Oct 28 2006
STATUS
approved