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

A153766 Numbers n such that 8n-9 is prime.

Original entry on oeis.org

2, 4, 5, 7, 10, 11, 14, 17, 20, 22, 25, 26, 29, 31, 34, 35, 40, 46, 47, 49, 55, 56, 59, 61, 62, 64, 76, 77, 80, 82, 91, 92, 94, 95, 104, 106, 109, 112, 115, 116, 122, 124, 125, 130, 131, 134, 137, 139, 145, 154, 155, 161, 164, 166, 167, 172, 176, 179, 181, 182, 185, 187
Offset: 1

Views

Author

Vincenzo Librandi, Jan 01 2009

Keywords

Comments

One more than the associated value in A005122. - R. J. Mathar, Jan 05 2011

Crossrefs

Programs

Extensions

83 replaced by 82 from R. J. Mathar, Jan 07 2009

A153768 Numbers n such that n, 8n-9 and 8n+9 are primes.

Original entry on oeis.org

11, 29, 31, 109, 199, 251, 269, 379, 419, 521, 599, 601, 661, 881, 991, 1091, 1231, 1289, 1789, 1831, 1861, 1901, 1949, 2239, 2689, 2969, 3181, 3251, 3301, 3359, 3499, 3779, 3821, 4099, 4201, 4339, 4561, 4651, 4679, 4789, 4871, 5281, 5471, 5641, 5659
Offset: 1

Views

Author

Vincenzo Librandi, Jan 01 2009

Keywords

Examples

			For n=11, even 8n-9=79 and 8n+9=97 are primes, therefore 11 is in the sequence.
		

Crossrefs

Programs

  • Magma
    [p: p in PrimesUpTo(6000) | IsPrime(8*p-9) and IsPrime(8*p+9)]; // Vincenzo Librandi, Apr 05 2013
  • Mathematica
    lst={}; Do[p=Prime[n]; If[PrimeQ[8*p-9]&&PrimeQ[8*p+9],AppendTo[lst,p]],{n,7!}]; lst (* Vladimir Joseph Stephan Orlovsky, Aug 16 2009 *)
    Select[Prime[Range[6000]], PrimeQ[8 # - 9] && PrimeQ[8 # + 9] &] (* Vincenzo Librandi, Apr 05 2013 *)
    Select[Prime[Range[800]],AllTrue[8#+{9,-9},PrimeQ]&] (* Harvey P. Dale, Apr 05 2023 *)

Extensions

241 replaced by 251 and extended by R. J. Mathar, Jan 07 2009
Showing 1-2 of 2 results.