|
| |
|
|
A046118
|
|
Smallest member of a sexy prime triple: value of p such that p, p+6 and p+12 are all prime, but p+18 is not (although p-6 might be).
|
|
5
|
|
|
|
7, 17, 31, 47, 67, 97, 101, 151, 167, 227, 257, 271, 347, 367, 557, 587, 607, 647, 727, 941, 971, 1097, 1117, 1181, 1217, 1277, 1291, 1361, 1427, 1447, 1487, 1607, 1657, 1747, 1777, 1867, 1901, 1987, 2131, 2281, 2377, 2411, 2677, 2687, 2707, 2791
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
p-6 will be prime if the prime triple contains the last 3 primes of a sexy prime quadruple.
If a sexy prime triple happens to include the last 3 members of a sexy prime quadruple, this sequence will contain the sexy prime triple's smallest member; e.g., a(4)=47 is the smallest member of the sexy prime triple (47, 53, 59), but is also the second member of the sexy prime quadruple (41, 47, 53, 59). - Daniel Forgues, Aug 05 2009
|
|
|
LINKS
|
Table of n, a(n) for n=1..46.
Eric Weisstein's World of Mathematics, Sexy Primes.
|
|
|
MATHEMATICA
|
lst={}; Do[p=Prime[n]; If[PrimeQ[p+6]&&PrimeQ[p+12]&&!PrimeQ[p+18], AppendTo[lst, p]], {n, 7!}]; lst (* Vladimir Joseph Stephan Orlovsky, Aug 29 2008 *)
|
|
|
PROG
|
(PARI) lista(nn) = forprime(p=3, nn, if (isprime(p+6) && isprime(p+12) && !isprime(p+18), print1(p, ", ")); ); \\ Michel Marcus, Jan 06 2015
|
|
|
CROSSREFS
|
Cf. A023201, A046117.
Cf. A046119, A046120.
Sequence in context: A196167 A001123 A094080 * A120092 A130284 A056220
Adjacent sequences: A046115 A046116 A046117 * A046119 A046120 A046121
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Eric W. Weisstein
|
|
|
EXTENSIONS
|
Definition edited by Daniel Forgues, Aug 12 2009
|
|
|
STATUS
|
approved
|
| |
|
|
