|
| |
|
|
A046132
|
|
Larger member p+4 of cousin primes (p, p+4).
|
|
35
| |
|
|
7, 11, 17, 23, 41, 47, 71, 83, 101, 107, 113, 131, 167, 197, 227, 233, 281, 311, 317, 353, 383, 401, 443, 461, 467, 491, 503, 617, 647, 677, 743, 761, 773, 827, 857, 863, 881, 887, 911, 941, 971, 1013, 1091, 1097, 1217, 1283, 1301, 1307, 1427, 1433
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Eric Weisstein's World of Mathematics, Cousin Primes
|
|
|
FORMULA
| a(n) = A023200(n) + 4 = A087679(n) + 2.
|
|
|
MATHEMATICA
| lst={}; Do[p=Prime[n]; If[PrimeQ[p4=p+4], (*Print[p4]; *)AppendTo[lst, p4]], {n, 10^2}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 21 2008]
|
|
|
PROG
| (PARI) forprime(p=2, 1e5, if(isprime(p-4), print1(p", "))) \\ Charles R Greathouse IV, Jul 15 2011
|
|
|
CROSSREFS
| Essentially the same as A031505. Cf. A023200, A098429.
Sequence in context: A158350 A048203 A088176 * A162337 A056687 A088981
Adjacent sequences: A046129 A046130 A046131 * A046133 A046134 A046135
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Eric Weisstein (eric(AT)weisstein.com)
|
| |
|
|
