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

A136051 Primes p such that 5*p-4 is also prime.

Original entry on oeis.org

3, 7, 13, 31, 37, 43, 67, 109, 127, 139, 151, 163, 199, 211, 241, 277, 307, 349, 367, 373, 433, 457, 463, 547, 571, 601, 613, 661, 673, 709, 727, 739, 787, 811, 823, 853, 919, 967, 991, 1021, 1087, 1117, 1129, 1171, 1231, 1291, 1297, 1399, 1471, 1483, 1549
Offset: 1

Views

Author

Artur Jasinski, Dec 12 2007

Keywords

Comments

Previous name: Daughter primes of order 2.
For daughter primes of order 1 see A088878. For smallest daughter primes of order n see A136019 (also definition).

Crossrefs

Programs

  • Mathematica
    n = 2; a = {}; Do[If[PrimeQ[(Prime[k] + 2n)/(2n + 1)], AppendTo[a, (Prime[k] + 2n)/(2n + 1)]], {k, 1, 1500}]; a
    (* Second program: *)
    Select[Prime@ Range@ 250, PrimeQ[5 # - 4] &] (* Michael De Vlieger, Aug 04 2017 *)
  • PARI
    lista(nn) = forprime(p=2, nn, if (isprime(5*p-4), print1(p, ", ")))

Extensions

New name from Michel Marcus, Aug 04 2017

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

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
Showing 1-9 of 9 results.