login
Upper prime of a difference of 22 between consecutive primes.
2

%I #8 Oct 14 2018 15:19:22

%S 1151,1973,2333,2579,3251,3491,3761,3989,4049,5471,6449,7151,8039,

%T 9371,9461,9719,10061,10133,10391,10589,11351,11549,12071,12323,13751,

%U 13829,14243,14369,15053,15959,17159,17231,17783,18119,19001,19841,19889

%N Upper prime of a difference of 22 between consecutive primes.

%H Harvey P. Dale, <a href="/A098976/b098976.txt">Table of n, a(n) for n = 1..2500</a>

%F a(n) = A061779(n)+22.

%t Select[Partition[Prime[Range[2500]],2,1],#[[2]]-#[[1]]==22&][[All,2]] (* _Harvey P. Dale_, Oct 14 2018 *)

%Y Cf. A031939.

%K nonn,easy

%O 1,1

%A Douglas Winston (douglas.winston(AT)srupc.com), Oct 24 2004