A227230 Numbers k such that 3*2^k + {5,7} are twin primes.
1, 2, 3, 5, 6, 19, 22
Offset: 1
Links
- Jon Grantham and Andrew Granville, Fibonacci primes, primes of the form 2^n-k and beyond, arXiv:2307.07894 [math.NT], 2023.
Crossrefs
Programs
-
Mathematica
Reap[Do[If[PrimeQ[a=3*2^n+5]&&PrimeQ[a+2],Sow[n]],{n,150}]][[2,1]]
-
PARI
for(k = 1,10^4, if(ispseudoprime(a = 3*2^k + 5)&&ispseudoprime (a + 2), print1(k",")))
Comments