|
%I #5 Mar 08 2014 09:03:12
%S 34771,219423,507698,776248,920369,1655143,1820948,1847083,1883839,
%T 2179339,2747429,2979743,3075306,3516977,3579987,3905386,3991750,
%U 4167882,5183712
%N Numbers n such that 2*P(n)+1, 2*P(n+1)+1, 2*P(n+2)+3, 2*P(n+3)+3 are also consecutive primes with P(i)=i-th prime.
%t cpQ[n_]:=Module[{a=2Prime[n]+1,b=2Prime[n+1]+1,c=2Prime[n+2]+3,d= 2Prime[ n+3]+3}, PrimeQ[ a]&&NextPrime[a]==b&&NextPrime[b]==c&&NextPrime[c]==d]; Select[Range[5200000],cpQ] (* _Harvey P. Dale_, Mar 08 2014 *)
%Y Cf. A103912 A103913.
%K nonn
%O 1,1
%A _Pierre CAMI_, Feb 21 2005
%E Corrected by _Harvey P. Dale_, Mar 08 2014
|
