cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A098420 Members of prime triples (p,q,r) with p < q < r = p + 6.

Original entry on oeis.org

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
Offset: 1

Views

Author

Reinhard Zumkeller, Sep 07 2004

Keywords

Comments

A098418(a(n)) > 0; complement of A098419 in A000040.
Union of A007529, A098414 and A098415.

Crossrefs

Programs

  • 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] (* Vladimir Joseph Stephan Orlovsky, Sep 25 2008 *)