|
| |
|
|
A099775
|
|
Primes of form pq - 6, where p and q are consecutive primes.
|
|
1
| |
|
|
29, 71, 137, 317, 431, 661, 1511, 3121, 3593, 4751, 6551, 8627, 9791, 11657, 16631, 19037, 36857, 41983, 51977, 55681, 57593, 72893, 82913, 95471, 116933, 123191, 159191, 194471, 198901, 205187, 210671, 233267, 256021, 272477, 324893, 364801
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| 11*13 - 6 = 137 is prime.
|
|
|
MATHEMATICA
| f[n_]:=Prime[n]*Prime[n+1]-6; lst={}; Do[If[PrimeQ[f[n]], AppendTo[lst, f[n]]], {n, 6!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Feb 10 2010]
|
|
|
PROG
| (PARI) p=2; forprime(q=3, 610, if(isprime(u=p*q-6), print1(u, ", ")); p=q)
(PARI) forprime(p=2, 1000, q=nextprime(p+1); r=p*q-6; if(isprime(r), print1(r, ", "))) (Shepherd)
|
|
|
CROSSREFS
| Cf. A092761.
Sequence in context: A155483 A141891 A144313 * A139893 A063312 A161617
Adjacent sequences: A099772 A099773 A099774 * A099776 A099777 A099778
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Giovanni Teofilatto (g.teofilatto(AT)tiscalinet.it), Nov 12 2004
|
|
|
EXTENSIONS
| Edited and extended by Klaus Brockhaus (klaus-brockhaus(AT)t-online.de) and Rick L. Shepherd (rshepherd2(AT)hotmail.com), Nov 13 2004
|
| |
|
|
