A053321 - OEIS

%I #17 Mar 10 2025 05:06:00

%S 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,

%T 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,

%U 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

%N First differences of A031924.

%H Muniru A Asiru, <a href="/A053321/b053321.txt">Table of n, a(n) for n = 1..10000</a>

%t With[{p = Prime[Range[330]]}, Differences[p[[Position[Differences[p], 6] // Flatten]]]] (* _Amiram Eldar_, Mar 10 2025 *)

%o (GAP) P:=Filtered([1..2100],IsPrime);;

%o P1:=List(Filtered([1..Length(P)-1],i->P[i+1]-P[i]=6),k->P[k]);;

%o a:=List([1..Length(P1)-1],i->P1[i+1]-P1[i]);; Print(a); # _Muniru A Asiru_, Dec 23 2018

%Y Cf. A031924.

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

%K nonn

%O 1,1

%A _Labos Elemer_, Mar 06 2000