|
%I #14 Aug 27 2019 13:42:58
%S 9551,12853,14107,15823,18803,22193,22307,22817,24281,27143,28351,
%T 29881,32261,40387,42863,45083,45197,46771,46957,47981,50461,57601,
%U 60041,60457,62423,65993,66301,68171,69073,69557,71597,72577,72823,73783
%N Primes p such that q-p = 36, where q is the next prime after p.
%H Charles R Greathouse IV, <a href="/A134117/b134117.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 Select[Partition[Prime[Range[10000]],2,1],#[[2]]-#[[1]]==36&][[All,1]] (* _Harvey P. Dale_, Aug 27 2019 *)
%o (PARI) is(n)=nextprime(n+1)==n+36 && isprime(n) \\ _Charles R Greathouse IV_, Sep 14 2015
%Y Cf. A134116, A134118.
%K nonn
%O 1,1
%A _Rick L. Shepherd_, Oct 08 2007
|
