|
%I #5 May 16 2016 16:45:26
%S 27258,33192,36318,39288,47478,59778,86940,114000,114462,117852,
%T 156900,157848,182070,212670,220020,229572,248328,281622,290490,
%U 293832,303732,307590,317328,364080,376950,378030,390702,419100,423192,432870,437322,454848,473622
%N Numbers n such that n*((2^61-1)^3) - 1 and n*((2^61-1)^3) + 1 are twin primes.
%t 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 *)
%Y Cf. A099229 A099231.
%K nonn
%O 1,1
%A _Pierre CAMI_, Oct 07 2004
%E Corrected and extended by _Harvey P. Dale_, May 16 2016
|
