|
%I #12 Dec 23 2018 09:10:04
%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>
%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
%K nonn
%O 1,1
%A _Labos Elemer_, Mar 06 2000
|
