%I #23 Sep 08 2022 08:44:50
%S 21,26,26,30,30,30,30,34,36,32,36,34,32,36,36,36,38,40,36,36,36,34,44,
%T 42,40,38,46,44,48,50,40,42,42,42,42,42,40,36,44,50,48,48,42,46,44,52,
%U 46,40,42,42,44,42,42,42,50,48,44,46,54,56,64,56,46,48,54,56,48
%N a(n) = prime(n+8) - prime(n).
%H Reinhard Zumkeller, <a href="/A031170/b031170.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A000040(n+8) - A000040(n). - _Zak Seidov_, Mar 23 2011
%p ithprime(n+8)-ithprime(n);
%t Table[Prime[n+8]-Prime[n],{n,1,100}] (* _Harvey P. Dale_, Mar 23 2011 *)
%o (Magma) [NthPrime(n+8)-NthPrime(n): n in [1..100] ]; // _Vincenzo Librandi_, Apr 23 2011
%o (Haskell)
%o a031170 n = a031170_list !! (n-1)
%o a031170_list = zipWith (-) (drop 8 a000040_list) a000040_list
%o -- _Reinhard Zumkeller_, Aug 23 2015
%Y Cf. A000040.
%Y Cf. A001223, A031131, A031165, A031166, A031167, A031168, A031169, A031171, A031172.
%K nonn
%O 1,1
%A _Jeff Burch_