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.

A158015 Primes p such that 6*p-1 is also prime.

Original entry on oeis.org

2, 3, 5, 7, 17, 19, 23, 29, 43, 47, 53, 59, 67, 103, 107, 109, 113, 127, 137, 157, 163, 197, 199, 227, 229, 239, 269, 283, 313, 317, 347, 359, 373, 379, 383, 389, 397, 439, 443, 449, 457, 463, 467, 523, 569, 577, 593, 599, 613, 617, 647, 653, 709, 733, 743, 773
Offset: 1

Views

Author

Roger L. Bagula, Mar 11 2009

Keywords

Crossrefs

Cf. A005382 for the type 2p-1, A062737 for 4p-1, A158016 for 8p-1, A158017 for 10p-1.
Primes in A024898, i.e., intersection of A024898 with A000040.

Programs

  • Magma
    [p: p in PrimesUpTo(800) | IsPrime(6*p-1)]; // Vincenzo Librandi, Apr 14 2013
  • Mathematica
    Select[Prime[Range[200]], PrimeQ[(6 # - 1)]&] (* Vincenzo Librandi, Apr 14 2013 *)

Extensions

Edited by the Associate Editors of the OEIS, Apr 22 2009

A158017 Primes p such that 10*p-1 is also prime.

Original entry on oeis.org

2, 3, 11, 23, 41, 71, 83, 101, 107, 113, 149, 167, 179, 227, 239, 269, 311, 317, 347, 353, 389, 479, 491, 521, 557, 569, 587, 647, 653, 683, 809, 821, 827, 839, 863, 911, 977, 983, 1091, 1229, 1259, 1283, 1289, 1301, 1367, 1373, 1439, 1487, 1493, 1607, 1619
Offset: 1

Views

Author

Roger L. Bagula, Mar 11 2009

Keywords

Comments

The family of prime sequences that generate primes k*p-1 for k = 2, 4, 6, 8, ... also comprises A005382 (k=2), A062737 (k=4), A158015 (k=6), and A158016 (k=8).

Crossrefs

Programs

  • Magma
    [p: p in PrimesUpTo(3000)|IsPrime(10*p-1)] // Vincenzo Librandi, Jan 29 2011
  • Mathematica
    Flatten[Table[If[PrimeQ[n] && PrimeQ[10*n - 1], n, {}], {n, 1, 10000}]]
    Select[Prime[Range[600]], PrimeQ[(10 # - 1)]&] (* Vincenzo Librandi, Apr 14 2013 *)

A223881 Denominators in the expression m!/(prime(m-1)+1) for m > 1 such that this expression is not an integer.

Original entry on oeis.org

3, 2, 19, 31, 37, 79, 41, 97, 53, 139, 71, 157, 83, 199, 211, 229, 131, 271, 137, 307, 331, 337, 173, 367, 379, 197, 439, 227, 499, 263, 547, 281, 577, 293, 197, 199, 601, 607, 619, 661, 227, 229, 691, 239, 727, 383, 269, 811, 829, 283, 431, 877, 467, 937, 313
Offset: 1

Views

Author

Keywords

Comments

It appears that all terms are primes.
From Alexander R. Povolotsky, Apr 26 2025: (Start)
The scatter plot reveals four distinct, well-separated, monotonically increasing curves. It became possible to extract the integers (all conjectured to be primes) corresponding to each of the four subsets.
Additionally, the approximation formulas for each of the four subsets were derived.
These four approximation formulas, given in the exponential form y=C_k*x^m were found to have a common slope: m=1.197311990 while their displacement coefficients are: C_1≈6.86845, C_2≈3.42058, C_3≈2.28335, C_4≈1.70460.
Notably, these displacement coefficients values exhibit a clear pattern: C_2≈C_1/2, C_3≈C_1/3, C_4≈C_1/4. (For instance, 3.42058≈6.86845/2, and so on.)
Above approximations were derived using general separation and approximation methods and do not specifically account for the fact that these values correspond to the prime numbers.
It appears that all primes in the groups 4, 2 and 1 are generated by the 6*k+1 formula, and so primes in the above groups constitute three subsets of A002476 terms, while all primes in the group 3 are generated by the 2*k+1 formula, and so primes in that group constitute a subset of the terms presented in A000040.
Also it appears that:
1. The first group constitutes a sequence, such that for n>=1, a(n) = A005382(n+6).
2. The third group constitutes a sequence, such that for n>1, a(n) = A158015(n+20).
3. The fourth group constitutes a sequence, such that for n>=1, a(n) = A158016(n+32).
The text files containing the primes, corresponding to the above discussed four groups, where primes are indexed against their position in the complete primes listing (see OEIS's A000040), are viewable and downloadable at the below links section. (End)

Crossrefs

Programs

  • Mathematica
    Denominator[Select[Table[m!/(Prime[m - 1] + 1), {m, 2, 300}], ! IntegerQ[#] &]] (* T. D. Noe, May 03 2013 *)
  • PARI
    m=M=1;forprime(p=2,1e5,M*=m++;t=denominator(M/(p+1)); if(t>1, print1(t", "))) \\ Charles R Greathouse IV, May 08 2013
Showing 1-3 of 3 results.