|
%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
|
