A031171 a(n) = prime(n+9) - prime(n).

27, 28, 32, 34, 32, 34, 36, 40, 38, 38, 40, 36, 38, 40, 42, 44, 42, 42, 40, 38, 40, 48, 48, 48, 42, 48, 48, 50, 54, 54, 46, 48, 44, 52, 44, 46, 42, 48, 56, 54, 50, 52, 48, 48, 54, 58, 52, 46, 44, 48, 48, 44, 52, 56, 54, 50, 48, 60, 60, 66, 66, 60, 52, 56, 60, 62, 52

Offset: 1

Author

Jeff Burch

Keywords

• nonn

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

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

Programs

Haskell

a031171 n = a031171_list !! (n-1)
a031171_list = zipWith (-) (drop 9 a000040_list) a000040_list
-- Reinhard Zumkeller, Aug 23 2015

Magma

[NthPrime(n+9)-NthPrime(n): n in [1..100] ]; // Vincenzo Librandi, Apr 23 2011

Maple

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

Mathematica

Table[Prime[n+9]-Prime[n],{n,80}] (* Harvey P. Dale, Jan 29 2023 *)

Extensions

Offset changed from 2 to 1 and a(1)=27 inserted by Vincenzo Librandi, Apr 23 2011