|
| |
|
|
A098061
|
|
Product of two consecutive primes + 6 is prime.
|
|
0
| |
|
|
41, 83, 149, 227, 443, 673, 1153, 1523, 2027, 4093, 5189, 6563, 7393, 9803, 11027, 12323, 20717, 39209, 47059, 50627, 60497, 64513, 70753, 95483, 104933, 123203, 126733, 131759, 136897, 154439, 181457, 186629, 190093, 194483, 213449, 233279
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 2,1
|
|
|
COMMENTS
| Is the number of terms in this sequence infinite?
|
|
|
EXAMPLE
| prime(3)*prime(4) = 35. 35+6 = 41, the first entry in the table.
|
|
|
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]
Select[Times@@#+6&/@Partition[Prime[Range[100]], 2, 1], PrimeQ] (* From Harvey P. Dale, Apr 25 2011 *)
|
|
|
PROG
| (PARI) f(n, m) = for(x=2, n, z=(prime(x+1)*prime(x)); if(isprime(z+m), print1(z+m", ")))
|
|
|
CROSSREFS
| Sequence in context: A044488 A173550 A136072 * A141898 A054998 A067378
Adjacent sequences: A098058 A098059 A098060 * A098062 A098063 A098064
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Cino Hilliard (hillcino368(AT)gmail.com), Sep 11 2004
|
| |
|
|
