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.

A285933 a(n) = smallest k such that (6*k-3)*2^n-1 and (6*k-3)*2^n+1 are twin primes.

Original entry on oeis.org

1, 1, 2, 3, 14, 1, 2, 10, 8, 3, 17, 28, 62, 8, 58, 20, 64, 1, 12, 75, 14, 6, 197, 41, 128, 63, 14, 65, 8, 58, 114, 98, 63, 45, 124, 36, 72, 516, 28, 45, 43, 183, 2, 25, 142, 68, 249, 30, 324, 155, 188, 200, 334, 56, 87, 178, 98, 110, 22, 25, 24, 70, 2, 271, 17, 498, 412, 750, 877
Offset: 1

Views

Author

Pierre CAMI, Apr 29 2017

Keywords

Comments

Conjecture: a(n) is ~ (n*log(2))^2/9 as n increases.

Examples

			(6*1-3)*2^1-1 = 5, (6*1-3)*2^1+1 = 7; 5 and 7 are twin primes so a(1) = 1.
(6*1-3)*2^2-1 = 11, (6*1-3)*2^2+1 = 13; 11 and 13 are twin primes so a(2) = 1.
		

Crossrefs

Cf. A285808.

Programs

  • Mathematica
    Table[k = 1; While[Times @@ Boole@ PrimeQ[(6 k - 3) 2^n + {-1, 1}] < 1, k++]; k, {n, 69}] (* Michael De Vlieger, May 04 2017 *)
  • PARI
    a(n) = {my(k=1); while (!isprime((6*k-3)*2^n-1) || !isprime((6*k-3)*2^n+1), k++); k;} \\ Michel Marcus, May 01 2017

A287218 a(n) = smallest k such that (6*k-3)*2^prime(n) - 1 is prime.

Original entry on oeis.org

1, 1, 3, 1, 1, 2, 3, 9, 12, 8, 3, 4, 3, 1, 36, 25, 8, 12, 19, 21, 3, 12, 19, 40, 9, 14, 1, 14, 2, 18, 81, 56, 49, 38, 38, 26, 3, 33, 103, 12, 67, 12, 11, 8, 48, 79, 2, 43, 136, 82, 12, 46, 78, 31, 117, 126, 34, 4, 27, 49, 83, 3, 57, 234, 12, 10, 116, 128, 53, 13
Offset: 1

Views

Author

Pierre CAMI, May 22 2017

Keywords

Comments

For n from 1 to 2000, a(n)/prime(n) is always < 1.8.
As N increases, (Sum_{n=1..N} a(n)) / (Sum_{n=1..N} prime(n)) tends to log(2)/3; this is consistent with the prime number theorem as the probability that x*2^n-1 is prime with odd x divisible by 3 is ~ 3/(n*log(2)) and after n*log(2)/3 try (n*log(2)/3)*(3/(n*log(2))) = 1.

Crossrefs

Subsequence of A285808.

Programs

  • Mathematica
    sk[n_]:=Module[{k=1,t=2^Prime[n]},While[!PrimeQ[(6k-3)*t-1],k++];k]; Array[ sk,70] (* Harvey P. Dale, Nov 14 2018 *)

Formula

a(n) = A285808(A000040(n)).

A288160 a(n) = smallest k such that (6*k*n-3)*2^n-1 is prime, or 0 if no such prime exists.

Original entry on oeis.org

1, 2, 2, 2, 1, 1, 0, 1, 1, 1, 1, 4, 6, 6, 0, 15, 2, 8, 3, 1, 9, 4, 3, 14, 1, 0, 3, 0, 1, 2, 1, 3, 4, 25, 0, 1, 24, 2, 17, 22, 2, 4, 16, 2, 13, 9, 17, 17, 0, 10, 17, 3, 6, 34, 0, 1, 69, 5, 26, 8, 4, 3, 3, 8, 16, 19, 3, 5, 5, 0, 18, 8, 75, 5, 0, 1, 0, 37, 19, 14, 85, 4, 4, 47
Offset: 1

Views

Author

Pierre CAMI, Jun 19 2017

Keywords

Comments

For some n (6*k*n-3)*2^n-1 is composite for any k.
For n=15+20*j, n=7+21*j, n=77+110*j, n=26+156*j, n=266+342*j, n=261+812*j, n=2368+1332*j, n=477+2756*j, n=2183+3422*j and more others (6*k*n-3)*2^n-1 is always composite for any k and any j.
For n=4390+187892*j, (6*k*n-3)*2^n-1 is always divisible by one of the 82 primes between 5 and 443, 4390=10*439 and 187892=438*439.
For n=6152+596744*j, (6*k*n-3)*2^n-1 is always divisible by one of the 134 primes between 3 and 773, 6152=8*769 and 596744=768*769.
For n=11*1229+1228*1229*j, (6*n*k-3)*2^n-1 is always divisible by one of the 199 primes between 3 and 1231 except 11.
For n=27*1399+1398*1399*j, (6*n*k-3)*2^n-1 is always divisible by one of the 220 primes between 3 and 1409.
For n=5*11*1619+1618*1619*j, (6*n*k-3)*2^n-1 is always divisible by one of the 253 primes between 5 and 1621 except 11.

Crossrefs

Cf. A285808.
Showing 1-3 of 3 results.