|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|