|
%I #10 May 28 2018 13:16:55
%S 2,5,11,19,47,71,73,97,109,113,137,139,151,163,167,199,229,239,263,
%T 271,311,313,317,331,347,353,379,431,433,457,461,479,503,509,523,593,
%U 599,613,617,691,701,727,761,797,811,823,853,863,883,929,937,941,947,953
%N Primes p such that 2310*p + 1 is also prime.
%e p=2 and 2310*p + 1 = 4621 are both primes.
%t Select[Prime[Range[200]],PrimeQ[2310#+1]&] (* _Harvey P. Dale_, Oct 14 2014 *)
%Y Cf. A005384, A002110, A005385.
%K nonn
%O 1,1
%A _Labos Elemer_
|
