A128038 Primes p such that p1=2p-33 and p2=2p+33 are consecutive primes.

129533, 141263, 212873, 323243, 381077, 393697, 449677, 486377, 525607, 583753, 693733, 774343, 988733, 1115453, 1138987, 1200887, 1204823, 1394083, 1419163, 1604143, 1661237, 1688887, 1760797, 1823567, 1825687, 1880363, 1972037

Offset

1,1

Links

Table of n, a(n) for n=1..27.

Example

{p,p1,p2,pi(p1),pi(p2)}:{129533,259033,259099,22765,22766},{141263,282493,282559,24644,24645},{212873,425713,425779,35832,35833},{323243,646453,646519,52557,52558},{381077,762121,762187,61145,61146},{393697,787361,787427,63011,63012}.

Maple

a:=proc(n) if isprime(n)=true and isprime(2*n-33)=true and nextprime(2*n-33)=2*n+33 then n else fi end: seq(a(n), n=1..3000000); # Emeric Deutsch, May 09 2007

Mathematica

cp66Q[n_]:=Module[{p1=2n-33}, PrimeQ[p1]&&NextPrime[p1]-p1==66]; Select[Prime[Range[150000]], cp66Q]  (* Harvey P. Dale, Mar 24 2011 *)

Crossrefs

Cf. A103806.

Sequence in context: A232122 A232420 A114668 * A210273 A250961 A225026

Adjacent sequences: A128035 A128036 A128037 * A128039 A128040 A128041

Keyword

nonn

Author

Zak Seidov, May 07 2007

Extensions

More terms from Emeric Deutsch, May 09 2007

Status

approved