%I
%S 19609,25471,35677,43801,48679,59281,74959,103237,152311,167809,
%T 188197,206827,257731,315127,323149,326257,326779,348097,359929,
%U 363067,365851,377911,381859,405091,417037,428899,432661,444349,459961,501511,521929,528559,544549,547171,554977,561109,569269,582319,590437,610339,622189
%N Primes p such that qp = 52, where q is the next prime after p.
%H Charles R Greathouse IV, <a href="/A204665/b204665.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Pri#gaps">Index entries for primes, gaps between</a>
%F a(n) >> n log^2 n.  _Charles R Greathouse IV_, Sep 14 2015
%t Transpose[Select[Partition[Prime[Range[52000]],2,1],Last[#]First[#] == 52&]][[1]] (* _Harvey P. Dale_, Jul 18 2014 *)
%o (PARI) is(n)=isprime(n) && nextprime(n+1)==n+52 \\ _Charles R Greathouse IV_, Sep 14 2015
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Jan 17 2012
