A088684 Prime(3n+3)-prime(3n+1).
6, 6, 8, 6, 8, 6, 10, 6, 6, 10, 12, 10, 8, 6, 24, 6, 12, 12, 10, 24, 6, 16, 10, 12, 14, 18, 12, 10, 6, 20, 12, 14, 16, 8, 16, 8, 6, 12, 12, 16, 18, 18, 10, 10, 18, 14, 6, 24, 6, 6, 24, 18, 12, 10, 14, 10, 12, 12, 8, 6, 12, 12, 12, 16, 20, 12, 18, 20, 8, 6, 14, 40, 26, 18, 10, 6, 22, 6
Offset: 1
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Programs
-
Maple
Primes:= select(isprime, [2,seq(i,i=3..10000)]): seq(Primes[3*n+3]-Primes[3*n+1],n=1..(nops(Primes)-3)/3); # Robert Israel, Dec 15 2019
-
Mathematica
Last[#]-First[#]&/@Partition[Prime[Range[4,250]],3] (* Harvey P. Dale, Sep 06 2011 *)
Formula
Partition primes in triples starting with 7: {7, 11, 13}, {17, 19, 23}, {29, 31, 37}, {41, 43, 47}, {53, 59, 61}, {67, 71, 73}, {79, 83, 89}, {97, 101, 103}, {107, 109, 113}. Sequence gives differences between lesser and larger primes in triples.
Comments