%I #7 Jun 26 2022 05:11:32
%S 53820,60042,84978,101862,110502,178812,181668,222378,245910,266808,
%T 275280,310392,353568,353598,354750,373692,477162,491838,498132
%N Numbers n such that n*((2^61-1)^4) - 1 and n*((2^61-1)^4) + 1 are twin primes.
%t With[{c=(2^61-1)^4},Select[Range[500000],AllTrue[c*#+{1,-1},PrimeQ]&]] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Aug 30 2015 *)
%Y Cf. A099229, A099230.
%K nonn
%O 1,1
%A _Pierre CAMI_, Oct 07 2004
%E More terms from _Harvey P. Dale_, Aug 30 2015
|