login
A091310
Primes not of the form p*q + p - q with prime p and q.
1
2, 3, 11, 23, 47, 53, 59, 71, 79, 83, 101, 107, 131, 163, 167, 173, 179, 191, 223, 227, 239, 251, 263, 269, 293, 311, 331, 347, 359, 367, 383, 419, 431, 439, 443, 467, 479, 491, 503, 509, 547, 563, 587, 599, 607, 641, 647, 653, 659, 683, 691, 719, 727, 733
OFFSET
1,1
MATHEMATICA
x = Take[ Select[ Union[ Flatten[ Table[ Prime[p]*Prime[q] + Prime[p] - Prime[q], {p, 116}, {q, 116}]]], PrimeQ[ # ] &], 200]; y = Table[ Prime[i], {i, PrimePi[ p[[ -1]] ]}]; Take[ Complement[y, x], 54] (* Robert G. Wilson v *)
CROSSREFS
Primes not in A091301.
Sequence in context: A082739 A158017 A346605 * A040994 A141123 A263729
KEYWORD
nonn
AUTHOR
Zak Seidov, Feb 21 2004
STATUS
approved