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-10 of 10 results.

A136052 Daughter primes of order 3.

Original entry on oeis.org

5, 7, 11, 17, 19, 29, 31, 41, 61, 67, 71, 79, 89, 97, 101, 107, 109, 127, 131, 137, 139, 151, 157, 167, 197, 211, 227, 229, 239, 269, 277, 307, 317, 331, 347, 349, 379, 401, 409, 419, 431, 439, 449, 461, 479, 509, 547, 601, 607, 619, 641, 647, 661, 677, 691
Offset: 1

Views

Author

Artur Jasinski, Dec 12 2007

Keywords

Comments

For daughter primes of order 1 see A088878. For daughter primes of order 2 see A136051. For smallest daughter primes of order n see A136019 (also definition)

Crossrefs

Programs

  • Mathematica
    n = 3; a = {}; Do[If[PrimeQ[(Prime[k] + 2n)/(2n + 1)], AppendTo[a, (Prime[k] + 2n)/(2n + 1)]], {k, 1, 1500}]; a

A136053 Daughter primes of order 4.

Original entry on oeis.org

3, 5, 13, 19, 23, 31, 43, 59, 61, 71, 83, 103, 113, 131, 163, 173, 181, 199, 223, 229, 233, 239, 241, 251, 281, 283, 311, 331, 353, 409, 433, 439, 463, 499, 503, 541, 563, 569, 619, 643, 653, 659, 691, 701, 709, 743, 761, 773, 853, 859, 863, 911, 919, 929, 941
Offset: 1

Views

Author

Artur Jasinski, Dec 12 2007

Keywords

Comments

For smallest daughter primes of order n see A136019 (also definition). For daughter primes of order 1 see A088878. For daughter primes of order 2 see A136051. For daughter primes of order 3 see A136052.

Crossrefs

Programs

  • Mathematica
    n = 4; a = {}; Do[If[PrimeQ[(Prime[k] + 2n)/(2n + 1)], AppendTo[a, (Prime[k] + 2n)/(2n + 1)]], {k, 1, 1500}]; a

A136054 Daughter primes of order 5.

Original entry on oeis.org

3, 7, 19, 31, 37, 43, 61, 67, 79, 103, 163, 193, 199, 211, 271, 277, 313, 331, 337, 367, 373, 379, 397, 421, 487, 499, 523, 547, 571, 577, 613, 673, 691, 709, 733, 757, 787, 823, 829, 859, 907, 919, 967, 991, 997, 1033, 1051, 1117, 1123, 1129, 1237, 1249
Offset: 1

Views

Author

Artur Jasinski, Dec 12 2007

Keywords

Comments

For smallest daughter primes of order n see A136019 (also definition). For daughter primes of order 1 see A088878. For daughter primes of order 2 see A136051. For daughter primes of order 3 see A136052. For daughter primes of order 4 see A136053.

Crossrefs

Programs

  • Mathematica
    n = 5; a = {}; Do[If[PrimeQ[(Prime[k] + 2n)/(2n + 1)], AppendTo[a, (Prime[k] + 2n)/(2n + 1)]], {k, 1, 1500}]; a

A136055 Daughter primes of order 6.

Original entry on oeis.org

5, 7, 11, 13, 41, 43, 47, 53, 67, 71, 73, 97, 101, 103, 151, 157, 173, 181, 197, 211, 223, 227, 241, 251, 257, 263, 271, 293, 313, 367, 383, 431, 461, 463, 521, 557, 563, 571, 577, 607, 617, 631, 661, 673, 683, 691, 727, 757, 773, 811, 823, 827, 883, 887, 907
Offset: 1

Views

Author

Artur Jasinski, Dec 12 2007

Keywords

Comments

For smallest daughter primes of order n see A136019 (also definition). For daughter primes of order 1 see A088878. For daughter primes of order 2 see A136051. For daughter primes of order 3 see A136052. For daughter primes of order 4 see A136053. For daughter primes of order 5 see A136054.

Crossrefs

Programs

  • Mathematica
    n = 6; a = {}; Do[If[PrimeQ[(Prime[k] + 2n)/(2n + 1)], AppendTo[a, (Prime[k] + 2n)/(2n + 1)]], {k, 1, 1500}]; a
    Select[(Prime[Range[2000]]+12)/13,PrimeQ] (* Harvey P. Dale, May 27 2012 *)

A136056 Daughter primes of order 7.

Original entry on oeis.org

3, 5, 11, 13, 17, 19, 23, 29, 37, 41, 43, 47, 67, 71, 79, 83, 89, 103, 109, 131, 149, 151, 157, 179, 191, 199, 223, 227, 239, 263, 269, 271, 281, 283, 307, 311, 331, 353, 373, 389, 409, 419, 421, 431, 433, 439, 457, 467, 491, 509, 541, 547, 563, 569, 577, 599
Offset: 1

Views

Author

Artur Jasinski, Dec 12 2007

Keywords

Comments

For smallest daughter primes of order n see A136019 (also definition). For daughter primes of order 1 see A088878. For daughter primes of order 2 see A136051. For daughter primes of order 3 see A136052. For daughter primes of order 4 see A136053. For daughter primes of order 5 see A136054. For daughter primes of order 6 see A136055.

Crossrefs

Programs

  • Mathematica
    n = 7; a = {}; Do[If[PrimeQ[(Prime[k] + 2n)/(2n + 1)], AppendTo[a, (Prime[k] + 2n)/(2n + 1)]], {k, 1, 1500}]; a

A136057 Daughter primes of order 8.

Original entry on oeis.org

7, 19, 37, 61, 67, 79, 127, 139, 151, 181, 211, 229, 271, 379, 397, 457, 487, 499, 541, 547, 607, 631, 691, 709, 727, 739, 757, 919, 937, 991, 1009, 1021, 1051, 1117, 1171, 1237, 1279, 1321, 1327, 1399, 1549, 1609, 1621, 1699, 1741, 1747, 1867, 1951, 1999
Offset: 1

Views

Author

Artur Jasinski, Dec 12 2007

Keywords

Comments

For smallest daughter primes of order n see A136019 (also definition). For daughter primes of order 1 see A088878. For daughter primes of order 2 see A136051. For daughter primes of order 3 see A136052. For daughter primes of order 4 see A136053. For daughter primes of order 5 see A136054. For daughter primes of order 6 see A136055 Daughter primes of order 7 see A136056.

Crossrefs

Programs

  • Mathematica
    n = 8; a = {}; Do[If[PrimeQ[(Prime[k] + 2n)/(2n + 1)], AppendTo[a, (Prime[k] + 2n)/(2n + 1)]], {k, 1, 1500}]; a

A136058 Daughter primes of order 9.

Original entry on oeis.org

11, 13, 23, 31, 41, 59, 79, 83, 101, 109, 113, 151, 163, 223, 233, 239, 241, 251, 331, 353, 359, 373, 409, 431, 433, 449, 461, 463, 491, 499, 503, 571, 619, 631, 641, 659, 661, 683, 751, 769, 773, 811, 821, 823, 829, 839, 853, 883, 911, 919, 953, 1021, 1031
Offset: 1

Views

Author

Artur Jasinski, Dec 12 2007

Keywords

Comments

For smallest daughter primes of order n see A136019 (also definition). For daughter primes of order 1 see A088878. For daughter primes of order 2 see A136051. For daughter primes of order 3 see A136052. For daughter primes of order 4 see A136053. For daughter primes of order 5 see A136054. For daughter primes of order 6 see A136055. For daughter primes of order 7 see A136056. For daughter primes of order 8 see A136057.

Crossrefs

Programs

  • Mathematica
    n = 9; a = {}; Do[If[PrimeQ[(Prime[k] + 2n)/(2n + 1)], AppendTo[a, (Prime[k] + 2n)/(2n + 1)]], {k, 1, 1500}]; a

A136059 Daughter primes of order 10.

Original entry on oeis.org

3, 7, 11, 17, 19, 23, 31, 37, 43, 47, 53, 71, 83, 97, 103, 109, 127, 131, 137, 149, 173, 179, 199, 223, 229, 239, 263, 281, 283, 293, 307, 313, 317, 337, 349, 353, 367, 397, 419, 421, 439, 443, 461, 467, 479, 499, 547, 557, 571, 577, 593, 601, 613, 619, 641
Offset: 1

Views

Author

Artur Jasinski, Dec 12 2007

Keywords

Comments

For smallest daughter primes of order n see A136019 (also definition). For daughter primes of order 1 see A088878. For daughter primes of order 2 see A136051. For daughter primes of order 3 see A136052. For daughter primes of order 4 see A136053. For daughter primes of order 5 see A136054. For daughter primes of order 6 see A136055. For daughter primes of order 7 see A136056. For daughter primes of order 8 see A136057. For daughter primes of order 9 see A136058.

Crossrefs

Programs

  • Mathematica
    n = 10; a = {}; Do[If[PrimeQ[(Prime[k] + 2n)/(2n + 1)], AppendTo[a, (Prime[k] + 2n)/(2n + 1)]], {k, 1, 1500}]; a

A136060 Daughter primes of order 11.

Original entry on oeis.org

3, 7, 13, 31, 37, 43, 61, 73, 103, 163, 211, 223, 241, 271, 307, 313, 331, 367, 397, 421, 463, 523, 541, 577, 643, 727, 757, 853, 877, 883, 937, 1051, 1087, 1093, 1153, 1237, 1291, 1303, 1381, 1423, 1471, 1597, 1693, 1723, 1777, 1951, 1993, 2131, 2161, 2203
Offset: 1

Views

Author

Artur Jasinski, Dec 12 2007

Keywords

Comments

For smallest daughter primes of order n see A136019 (also definition). For daughter primes of order 1 see A088878. For daughter primes of order 2 see A136051. For daughter primes of order 3 see A136052. For daughter primes of order 4 see A136053. For daughter primes of order 5 see A136054. For daughter primes of order 6 see A136055. For daughter primes of order 7 see A136056. For daughter primes of order 8 see A136057. For daughter primes of order 9 see A136058. For daughter primes of order 10 see A136059.

Crossrefs

Programs

  • Mathematica
    n = 11; a = {}; Do[If[PrimeQ[(Prime[k] + 2n)/(2n + 1)], AppendTo[a, (Prime[k] + 2n)/(2n + 1)]], {k, 1, 1500}]; a

A289556 Primes p such that both 5*p - 4 and 4*p - 5 are prime.

Original entry on oeis.org

3, 7, 13, 43, 67, 109, 127, 151, 163, 211, 277, 307, 373, 457, 463, 601, 613, 673, 727, 853, 919, 967, 1021, 1117, 1171, 1231, 1399, 1471, 1483, 1747, 1789, 1933, 2029, 2251, 2311, 2389, 2503, 2521, 2557, 2659, 2851, 2857, 3019, 3067, 3121, 3229, 3583, 3613, 3637, 3691, 3697
Offset: 1

Views

Author

David James Sycamore, Aug 02 2017

Keywords

Comments

The terms of this sequence belong to two disjoint subsequences, namely those for which |A(5*p) - A(4*p)| = 9; (3,7,13,43,67,127,163,211,277,307,457,...), and those for which 5*A(4*p) - 3*A(5*p) = 3, (109,151,373,673,919,...), where A = A288814.
Note: A288814(n) = A056240(n) for all composite n.

Examples

			P=7: 5*7 - 4 = 31, 4*7 - 5 = 23, both prime so 7 is in this sequence, and belongs to the subsequence of terms satisfying A(4*p) - A(3*p) = 9.
P=109: 5*109 - 4 = 541, 4*109 - 5 = 431, both prime so 109 is in this sequence, and belongs to the subsequence of terms satisfying 5*A(4*p) - 3*A(5*p) = 3.
		

Crossrefs

Intersection of A136051 and A156300. - Michel Marcus, Aug 04 2017

Programs

  • Mathematica
    Select[Prime@ Range@ 516, Times @@ Boole@ Map[PrimeQ, {5 # - 4, 4 # - 5}] > 0 &] (* Michael De Vlieger, Aug 02 2017 *)

Extensions

More terms from Altug Alkan, Aug 02 2017
Showing 1-10 of 10 results.