login
a(n) = prime(n+9) - prime(n).
11

%I #16 Jan 29 2023 16:50:33

%S 27,28,32,34,32,34,36,40,38,38,40,36,38,40,42,44,42,42,40,38,40,48,48,

%T 48,42,48,48,50,54,54,46,48,44,52,44,46,42,48,56,54,50,52,48,48,54,58,

%U 52,46,44,48,48,44,52,56,54,50,48,60,60,66,66,60,52,56,60,62,52

%N a(n) = prime(n+9) - prime(n).

%H Reinhard Zumkeller, <a href="/A031171/b031171.txt">Table of n, a(n) for n = 1..10000</a>

%p ithprime(n+9)-ithprime(n);

%t Table[Prime[n+9]-Prime[n],{n,80}] (* _Harvey P. Dale_, Jan 29 2023 *)

%o (Magma) [NthPrime(n+9)-NthPrime(n): n in [1..100] ]; // _Vincenzo Librandi_, Apr 23 2011

%o (Haskell)

%o a031171 n = a031171_list !! (n-1)

%o a031171_list = zipWith (-) (drop 9 a000040_list) a000040_list

%o -- _Reinhard Zumkeller_, Aug 23 2015

%Y Cf. A000040, A001223, A031131, A031165, A031166, A031167, A031168, A031169, A031170, A031172.

%K nonn

%O 1,1

%A _Jeff Burch_

%E Offset changed from 2 to 1 and a(1)=27 inserted by _Vincenzo Librandi_, Apr 23 2011