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.

Showing 1-3 of 3 results.

A073648 Middle members of prime triples {p, p+2, p+6}.

Original entry on oeis.org

7, 13, 19, 43, 103, 109, 193, 229, 313, 349, 463, 643, 823, 859, 883, 1093, 1279, 1303, 1429, 1483, 1489, 1609, 1873, 1999, 2083, 2239, 2269, 2659, 2689, 3253, 3463, 3529, 3673, 3919, 4003, 4129, 4519, 4639, 4789, 4933, 4969, 5233, 5479, 5503, 5653, 6199
Offset: 1

Views

Author

Amarnath Murthy, Aug 09 2002

Keywords

Crossrefs

Programs

  • Mathematica
    Transpose[Select[Partition[Prime[Range[850]],3,1],Differences[#]=={2,4}&]][[2]]  (* Harvey P. Dale, Feb 20 2011 *)

Formula

a(n) = A022004(n) + 2.

Extensions

More terms from Benoit Cloitre, Aug 13 2002

A073649 Define the composite field of a prime q to be f(q) = (t,s) if p, q, r are three consecutive primes and q-p = t and r-q = s. This is a sequence of primes q with field (4,2).

Original entry on oeis.org

11, 17, 41, 71, 101, 107, 197, 227, 281, 311, 461, 617, 827, 857, 881, 1091, 1301, 1427, 1451, 1487, 1667, 1697, 1787, 1871, 1877, 1997, 2087, 2141, 2381, 2687, 2711, 2801, 3167, 3257, 3461, 3467, 3851, 4157, 4517, 4787, 5231, 5417, 5441, 5651, 5657
Offset: 1

Views

Author

Amarnath Murthy, Aug 09 2002

Keywords

Crossrefs

Equals A022005 + 4.

Programs

  • Mathematica
    Transpose[Select[Partition[Prime[Range[1200]],3,1],Differences[#] == {4,2}&]] [[2]] (* Harvey P. Dale, Jul 23 2011 *)

Extensions

Corrected and extended by Benoit Cloitre, Aug 13 2002

A073651 Define the composite field of a prime q to be f(q) = (t,s) if p, q, r are three consecutive primes and q-p = t and r-q = s. This is a sequence of primes q with field (6,2).

Original entry on oeis.org

29, 59, 137, 179, 239, 269, 569, 599, 659, 1019, 1229, 1289, 1607, 1619, 2339, 2549, 2969, 3329, 3539, 3767, 3917, 3929, 4019, 4217, 4259, 4649, 4799, 5009, 5279, 5477, 5849, 5867, 6269, 6359, 6569, 6659, 6869, 7127, 7457, 7487, 7547, 7589, 8087, 8429, 8837, 8969, 9419, 9629
Offset: 1

Views

Author

Amarnath Murthy, Aug 09 2002

Keywords

Crossrefs

Programs

  • Mathematica
    Transpose[Select[Partition[Prime[Range[1200]],3,1],Differences[#]=={6,2}&]][[2]] (* Harvey P. Dale, Jul 23 2011 *)

Extensions

Corrected and extended by Ryan Propper, Jul 10 2005
Corrected and extended by Harvey P. Dale, Jul 23 2011
Showing 1-3 of 3 results.