%I #11 Jul 01 2018 10:50:40
%S 193,223,1607,15733,39877,63647,65407,68207,72673,84299,89977,96787,
%T 99137,102533,103687,115837,127807,143567,150373,191999,204793,257867,
%U 324217,344957,375253,412033,427433,491149,551717,595117,642527,646897
%N Sequence of primes p(n) such that 2*p(n)+3, 2*p(n+1)+3, 2*p(n+2)+3 are consecutive primes, where p(i) denotes the i-th prime.
%H Robert Israel, <a href="/A088119/b088119.txt">Table of n, a(n) for n = 1..2000</a>
%F a(n) = A000040(A088066(n)).
%e p(44) = 193, 2*193 + 3 = 389 = p(77);
%e p(45) = 197, 2*197 + 3 = 397 = p(78);
%e p(46) = 199, 2*199 + 3 = 401 = p(79).
%p r:= 1: q:= 2: p:= 3: count:= 0:
%p while count < 100 do
%p r:= q; q:= p; p:= nextprime(p);
%p if isprime(2*r+3) and nextprime(2*r+3)=2*q+3 and nextprime(2*q+3)=2*p+3 then
%p count:= count+1;
%p A[count]:= r;
%p fi
%p od:seq(A[i],i=1..100); # _Robert Israel_, Jul 01 2018
%Y Subsequence of A089527.
%Y Cf. A088066, A089450, A089525.
%K nonn
%O 1,1
%A _Pierre CAMI_, Nov 02 2003
%E More terms from _Ray Chandler_, Nov 03 2003
%E Offset corrected by _Robert Israel_, Jul 01 2018
|