A376946 Smallest k such that 3^(4*3^n) - k is a safe prime.

22, 202, 6934, 634, 109678, 445294, 2323138

Offset

0,1

Comments

a(7) > 46472.

a(7) > 2*10^7. - Michael S. Branicky, Nov 09 2024

Links

Table of n, a(n) for n=0..6.

Mathematica

Table[m = 3;
 k = 0; Monitor[
  Parallelize[
   While[True,
    If[And[PrimeQ[m^((m + 1)*m^n) - k],
      PrimeQ[((m^((m + 1)*m^n) - k) - 1)/2]], Break[]]; k++]; k],
  k], {n, 0, 5}]

Prog

(PARI) a(n) = {my(k=0); while (!(isprime(p=3^(4*3^n) - k) && isprime((p-1)/2)), k++); k; }
(Python)
from sympy import isprime, prevprime
def A(n):
    m = 3**(4*3**n)
    p = prevprime(m)
    while not isprime((p-1)//2):
        p = prevprime(p)
    return m-p #

Crossrefs

Cf. A005385, A057821, A181356, A335313.

Sequence in context: A254470 A230896 A031202 * A274982 A144249 A280475

Adjacent sequences: A376943 A376944 A376945 * A376947 A376948 A376949

Keyword

nonn,more

Author

J.W.L. (Jan) Eerland, Oct 10 2024

Status

approved