|
| |
|
|
A098420
|
|
Members of prime triples (p,q,r) with p<q<r=p+6.
|
|
5
|
|
|
|
5, 7, 11, 13, 17, 19, 23, 37, 41, 43, 47, 67, 71, 73, 97, 101, 103, 107, 109, 113, 191, 193, 197, 199, 223, 227, 229, 233, 277, 281, 283, 307, 311, 313, 317, 347, 349, 353, 457, 461, 463, 467, 613, 617, 619, 641, 643, 647, 821, 823, 827, 829, 853, 857, 859, 863
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
A098418(a(n)) > 0; complement of A098419 in A000040;
union of A007529, A098414 and A098415.
|
|
|
LINKS
|
Table of n, a(n) for n=1..56.
Eric Weisstein's World of Mathematics, Prime Triplet
|
|
|
MATHEMATICA
|
lst={}; Do[p=Prime[n]; If[PrimeQ[p2=p+2]&&PrimeQ[p6=p+6], AppendTo[lst, p]; AppendTo[lst, p2]; AppendTo[lst, p6]]; If[PrimeQ[p4=p+4]&&PrimeQ[p6=p+6], AppendTo[lst, p]; AppendTo[lst, p4]; AppendTo[lst, p6]], {n, 6!}]; Union[lst] [From Vladimir Joseph Stephan Orlovsky, Sep 25 2008]
|
|
|
CROSSREFS
|
Sequence in context: A096547 A216524 A128824 * A093495 A093496 A171688
Adjacent sequences: A098417 A098418 A098419 * A098421 A098422 A098423
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Reinhard Zumkeller, Sep 07 2004
|
|
|
STATUS
|
approved
|
| |
|
|
