|
%I #14 Aug 26 2015 01:34:11
%S 907,1657,3109,3433,3967,5737,5923,6007,6823,7669,8263,8563,8803,8887,
%T 9277,10243,10453,10687,11047,11113,11197,11467,11617,11677,11887,
%U 12007,13147,13441,13669,14107,14197,15493,16963,17539,17827
%N Upper prime of a difference of 20 between consecutive primes.
%H <a href="/index/Pri#gaps">Index entries for primes, gaps between</a>
%F a(n) = A031938(n)+20.
%t Prime[Select[Range[2, 5000], Prime[ # ] - Prime[ # - 1] == 20 &]] (* _Stefan Steinerberger_, May 14 2006 *)
%Y Cf. A031937.
%K nonn
%O 1,1
%A _Jeff Burch_
|
