A053321 First differences of A031924.

8, 16, 6, 8, 12, 10, 48, 20, 6, 10, 6, 60, 18, 6, 6, 8, 60, 22, 14, 6, 10, 50, 10, 60, 38, 16, 6, 8, 16, 6, 8, 6, 40, 6, 24, 50, 6, 18, 190, 6, 24, 6, 14, 22, 20, 30, 34, 6, 14, 6, 58, 6, 30, 6, 8, 52, 8, 30, 40, 6, 66, 20, 40, 50, 10, 48, 12, 8, 36, 84, 6, 6, 24, 84, 40, 6, 66, 14, 24

Offset: 1

Author

Labos Elemer, Mar 06 2000

Keywords

• nonn

Links

• Muniru A Asiru, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A031924.

Cf. A053322, A053323, A053324, A053325, A053326, A053327, A053331.

Programs

GAP

P:=Filtered([1..2100],IsPrime);;
P1:=List(Filtered([1..Length(P)-1],i->P[i+1]-P[i]=6),k->P[k]);;
a:=List([1..Length(P1)-1],i->P1[i+1]-P1[i]);; Print(a); # Muniru A Asiru, Dec 23 2018

Mathematica

With[{p = Prime[Range[330]]}, Differences[p[[Position[Differences[p], 6] // Flatten]]]] (* Amiram Eldar, Mar 10 2025 *)