cp's OEIS Frontend

A031167 a(n) = prime(n+5) - prime(n).

%I A031167 #21 Sep 08 2022 08:44:50
%S A031167 11,14,14,16,18,18,20,22,20,18,22,22,20,24,24,20,20,22,22,26,28,24,24,
%T A031167 20,16,26,28,30,30,36,24,26,26,28,24,28,24,28,26,24,20,30,32,34,32,34,
%U A031167 28,18,24,28,30,30,30,26,24,20,24,36,34,32,34,38,30,36,36,36,28
%N A031167 a(n) = prime(n+5) - prime(n).
%H A031167 Reinhard Zumkeller, <a href="/A031167/b031167.txt">Table of n, a(n) for n = 1..10000</a>
%p A031167 seq(ithprime(n+5)-ithprime(n), n=1..30);
%t A031167 a=5; t=Array[Prime,123]; Drop[t,a]-Drop[t,-a] (* _Vladimir Joseph Stephan Orlovsky_, Aug 13 2009 *)
%t A031167 Last[#]-First[#]&/@Partition[Prime[Range[80]],6,1] (* _Harvey P. Dale_, Jul 11 2014 *)
%o A031167 (PARI) A031167(n) = prime(n+5)-prime(n)
%o A031167 (Magma) [NthPrime(n+5)-NthPrime(n): n in [1..100] ]; // _Vincenzo Librandi_, Apr 23 2011
%o A031167 (Haskell)
%o A031167 a031167 n = a031167_list !! (n-1)
%o A031167 a031167_list = zipWith (-) (drop 5 a000040_list) a000040_list
%o A031167 -- _Reinhard Zumkeller_, Aug 23 2015
%Y A031167 Cf. A000040, A001223, A031131, A031165, A031166, A031168, A031169, A031170, A031171, A031172.
%K A031167 nonn
%O A031167 1,1
%A A031167 _Jeff Burch_
%E A031167 Initial term added by _Michael B. Porter_, Jan 27 2010