|
| |
|
|
A046117
|
|
Values of p+6 where (p,p+6) are both prime.
|
|
45
| |
|
|
11, 13, 17, 19, 23, 29, 37, 43, 47, 53, 59, 67, 73, 79, 89, 103, 107, 109, 113, 137, 157, 163, 173, 179, 197, 199, 229, 233, 239, 257, 263, 269, 277, 283, 313, 317, 337, 353, 359, 373, 379, 389, 439, 449, 463, 467, 509, 547, 563, 569, 577, 593, 599, 607, 613
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| T. D. Noe, Table of n, a(n) for n=1..1000
Eric Weisstein's World of Mathematics, Sexy Primes.
|
|
|
MATHEMATICA
| q=6; a={}; Do[p1=Prime[n]; p2=p1+q; If[PrimeQ[p2], AppendTo[a, p2]], {n, 7^2}]; a "and/or" Select[Prime[Range[3, 7^2]], PrimeQ[ # ]&&PrimeQ[ #-6]&] [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 07 2008]
|
|
|
PROG
| (PARI) forprime(p=2, 1e4, if(isprime(p-6), print1(p", "))) \\ Charles R Greathouse IV, Jul 15 2011
|
|
|
CROSSREFS
| Cf. A023201, A046117.
Cf. A098428.
Equals A087695 + 3.
Sequence in context: A078875 A052293 A038842 * A091923 A050719 A098415
Adjacent sequences: A046114 A046115 A046116 * A046118 A046119 A046120
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Eric Weisstein (eric(AT)weisstein.com)
|
| |
|
|
