A031172 a(n) = prime(n+10) - prime(n).
29, 34, 36, 36, 36, 40, 42, 42, 44, 42, 42, 42, 42, 46, 50, 48, 44, 46, 42, 42, 54, 52, 54, 50, 52, 50, 54, 56, 58, 60, 52, 50, 54, 54, 48, 48, 54, 60, 60, 56, 54, 58, 50, 58, 60, 64, 58, 48, 50, 52, 50, 54, 66, 60, 56, 54, 62, 66, 70, 68, 70, 66, 60, 62, 66, 66, 58
Offset: 1
Links
- Zak Seidov, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
GAP
P:=Filtered([1..400],IsPrime);; a:=List([1..Length(P)-10],n->P[n+10]-P[n]); # Muniru A Asiru, Dec 06 2018
-
Haskell
a031172_list = zipWith (-) (drop 10 a000040_list) a000040_list a031172 n = a031172_list !! (n-1) -- Reinhard Zumkeller, Aug 23 2015
-
Magma
[NthPrime(n+10)-NthPrime(n): n in [1..100] ]; // Vincenzo Librandi, Apr 23 2011
-
Maple
A031172:=n->ithprime(n+10)-ithprime(n): seq(A031172(n), n=1..50);
-
Mathematica
Table[Prime[n + 10] - Prime[n], {n, 50}] (* Wesley Ivan Hurt, Sep 14 2014 *)
-
PARI
A031172(n)=prime(n+10)-prime(n) \\ M. F. Hasler, Dec 03 2018
-
Python
from sympy import prime for n in range(1,100): print(prime(n+10)-prime(n)) # Stefano Spezia, Dec 06 2018
-
Sage
[(nth_prime(n+10) - nth_prime(n)) for n in (1..100)] # G. C. Greubel, Dec 04 2018
Formula
Extensions
Offset changed from 2 to 1; added a(1)=29 by Vincenzo Librandi, Apr 23 2011
Comments