A053320 Distance between pairs of primes differing by 4.

4, 6, 6, 18, 6, 24, 12, 18, 6, 6, 18, 36, 30, 30, 6, 48, 30, 6, 36, 30, 18, 42, 18, 6, 24, 12, 114, 30, 30, 66, 18, 12, 54, 30, 6, 18, 6, 24, 30, 30, 42, 78, 6, 120, 66, 18, 6, 120, 6, 18, 36, 6, 60, 18, 12, 18, 12, 54, 30, 90, 84, 6, 120, 6, 84, 54, 66, 36, 30, 24, 54, 30, 12, 48

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Maple

with(numtheory): pre:=0: for n from 1 to 3000 do if isprime(n) and isprime(n+4) then if pre<>0 then printf("%d, ", n-pre) fi: pre:=n fi od: # C. Ronaldo

Mathematica

Differences[Select[Prime[Range[500]], PrimeQ[# + 4]&]] (* Vincenzo Librandi, Jul 11 2013 *)

Crossrefs

First differences of A023200.

Cf. A227346.

Sequence in context: A346675 A077038 A379445 * A351649 A019090 A145692

Adjacent sequences: A053317 A053318 A053319 * A053321 A053322 A053323

Keyword

nonn,easy

Author

Labos Elemer, Mar 06 2000

Status

approved