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.

A153135 Primes p such that 6*p - 7 is also prime.

Original entry on oeis.org

2, 3, 5, 11, 13, 19, 23, 29, 31, 41, 43, 53, 59, 61, 71, 73, 79, 83, 101, 109, 139, 149, 163, 173, 193, 199, 211, 229, 239, 241, 251, 263, 269, 271, 313, 331, 349, 353, 379, 401, 409, 431, 433, 449, 491, 503, 521, 563, 569, 613, 631, 643, 653, 659, 683, 691, 733, 743
Offset: 1

Views

Author

Vincenzo Librandi, Dec 21 2008

Keywords

Crossrefs

Programs

  • Magma
    [n: n in [0..900] | IsPrime(n) and IsPrime(6*n - 7)]; // "or" [p: p in PrimesUpTo(900) | IsPrime(6*p - 7)]; // Vincenzo Librandi, Oct 20 2012
  • Mathematica
    lst={};Do[p=Prime[n];If[PrimeQ[6*p-7],AppendTo[lst,p]],{n,6!}];lst (* Vladimir Joseph Stephan Orlovsky, Dec 23 2008 *)
    Select[Prime[Range[110]],PrimeQ[6#-7]&] (* Harvey P. Dale, Oct 25 2011 *)

Extensions

Corrected by D. S. McNeil, Dec 10 2010

A153134 Numbers k such that 6k - 7 is prime.

Original entry on oeis.org

2, 3, 4, 5, 6, 8, 9, 10, 11, 13, 15, 16, 18, 19, 20, 23, 24, 26, 29, 30, 31, 33, 34, 39, 40, 41, 43, 44, 45, 46, 48, 50, 53, 54, 59, 60, 61, 65, 66, 68, 71, 73, 75, 76, 78, 79, 81, 83, 85, 86, 88, 94, 95, 96, 99, 100, 101, 104, 108, 109, 110, 111, 114, 115, 118, 121, 125, 128
Offset: 1

Views

Author

Vincenzo Librandi, Dec 21 2008

Keywords

Comments

One more than the associated term in A024898. - R. J. Mathar, Jan 05 2011

Crossrefs

Programs

Extensions

Corrected and extended by Vladimir Joseph Stephan Orlovsky, Dec 23 2008

A153319 Primes p such that 6*p-7 is not prime.

Original entry on oeis.org

7, 17, 37, 47, 67, 89, 97, 103, 107, 113, 127, 131, 137, 151, 157, 167, 179, 181, 191, 197, 223, 227, 233, 257, 277, 281, 283, 293, 307, 311, 317, 337, 347, 359, 367, 373, 383, 389, 397, 419, 421, 439, 443, 457, 461, 463, 467, 479, 487, 499, 509, 523, 541
Offset: 1

Views

Author

Vladimir Joseph Stephan Orlovsky, Dec 23 2008, Jan 02 2009

Keywords

Crossrefs

Programs

  • Mathematica
    lst={};Do[p=Prime[n];If[ !PrimeQ[6*p-7],AppendTo[lst,p]],{n,6!}];lst
    Select[Prime[Range[100]],!PrimeQ[6#-7]&] (* Harvey P. Dale, Dec 13 2019 *)

Extensions

Typo in definition fixed by Zak Seidov, Nov 14 2011
Showing 1-3 of 3 results.