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

Author

Labos Elemer, Mar 06 2000

Keywords

• nonn
• easy

Links

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

Crossrefs

First differences of A023200.

Cf. A227346.

Programs

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 *)