A282428 Numbers k such that A264097(k) = A264098(k), so : A264097(k)*2^k-1 and A264098(k)*2^k+1 are twin primes.
1, 2, 6, 10, 18, 29, 63, 155, 211, 264, 546, 1032, 1156, 1321, 1553, 3460, 4901, 5907, 8335, 8529, 11455, 13153
Offset: 1
Programs
-
Mathematica
With[{nn = 600}, Flatten@ Position[Transpose@ {Table[k = 3; While[! PrimeQ[k 2^n - 1], k += 6]; k, {n, nn}], Table[k = 3; While[! PrimeQ[k 2^n + 1], k += 6]; k, {n, nn}]}, w_ /; SameQ @@ w]] (* Michael De Vlieger, Feb 16 2017 *)
Comments