|
%I #16 Sep 14 2015 15:51:58
%S 28229,73189,86629,105769,106543,113843,137029,156371,157579,163259,
%T 166099,168803,172441,177043,177691,179849,180569,183713,203713,
%U 204251,206651,220973,222199,226943,229849,233021,234383,240209,242009,260269
%N Primes p such that q-p = 48, where q is the next prime after p.
%H Charles R Greathouse IV, <a href="/A134123/b134123.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Pri#gaps">Index entries for primes, gaps between</a>
%t Transpose[Select[Partition[Prime[Range[25000]],2,1],Last[#]-First[#]==48&]][[1]] (* _Harvey P. Dale_, Feb 07 2011 *)
%t Select[Prime[Range[25000]], NextPrime[#] - # == 48 &]
%o (PARI) is(n)=nextprime(n+1)==n+48 && isprime(n) \\ _Charles R Greathouse IV_, Sep 14 2015
%Y Cf. A134122, A134124.
%K nonn
%O 1,1
%A _Rick L. Shepherd_, Oct 08 2007
|
