login
A099230
Numbers n such that n*((2^61-1)^3) - 1 and n*((2^61-1)^3) + 1 are twin primes.
2
27258, 33192, 36318, 39288, 47478, 59778, 86940, 114000, 114462, 117852, 156900, 157848, 182070, 212670, 220020, 229572, 248328, 281622, 290490, 293832, 303732, 307590, 317328, 364080, 376950, 378030, 390702, 419100, 423192, 432870, 437322, 454848, 473622
OFFSET
1,1
MATHEMATICA
tpQ[n_]:=Module[{c=(2^61-1)^3}, AllTrue[n*c+{1, -1}, PrimeQ]]; Select[ Range[ 600000], tpQ] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, May 16 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Pierre CAMI, Oct 07 2004
EXTENSIONS
Corrected and extended by Harvey P. Dale, May 16 2016
STATUS
approved