%I #21 Sep 08 2022 08:44:50
%S 15,16,18,22,20,24,24,24,24,24,28,24,26,28,26,26,24,28,30,30,30,28,26,
%T 24,30,30,34,32,40,38,30,32,30,34,30,30,34,30,30,26,32,42,36,36,36,40,
%U 30,28,30,34,36,32,36,30,26,30,38,40,36,36,48,44,40,38,40,42,36
%N a(n) = prime(n+6) - prime(n).
%H Reinhard Zumkeller, <a href="/A031168/b031168.txt">Table of n, a(n) for n = 1..10000</a>
%p seq(ithprime(n+6)-ithprime(n), n=1..70);
%t a=6; t=Array[Prime,123]; Drop[t,a]-Drop[t,-a] (* _Vladimir Joseph Stephan Orlovsky_, Aug 13 2009 *)
%t Last[#]-First[#]&/@Partition[Prime[Range[80]],7,1] (* _Harvey P. Dale_, Jan 12 2012 *)
%o (Magma) [NthPrime(n+6)-NthPrime(n): n in [1..100] ]; // _Vincenzo Librandi_, Apr 23 2011
%o (Haskell)
%o a031168 n = a031168_list !! (n-1)
%o a031168_list = zipWith (-) (drop 6 a000040_list) a000040_list
%o -- _Reinhard Zumkeller_, Aug 23 2015
%Y Cf. A000040, A001223, A031131, A031165, A031166, A031167, A031169, A031170, A031171, A031172.
%K nonn
%O 1,1
%A _Jeff Burch_
%E Offset changed from 2 to 1, and a(1)=15 added, by _Vincenzo Librandi_, Apr 23 2011