cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A053321 First differences of A031924.

This page as a plain text file.
%I A053321 #17 Mar 10 2025 05:06:00
%S A053321 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 A053321 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 A053321 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 A053321 First differences of A031924.
%H A053321 Muniru A Asiru, <a href="/A053321/b053321.txt">Table of n, a(n) for n = 1..10000</a>
%t A053321 With[{p = Prime[Range[330]]}, Differences[p[[Position[Differences[p], 6] // Flatten]]]] (* _Amiram Eldar_, Mar 10 2025 *)
%o A053321 (GAP) P:=Filtered([1..2100],IsPrime);;
%o A053321 P1:=List(Filtered([1..Length(P)-1],i->P[i+1]-P[i]=6),k->P[k]);;
%o A053321 a:=List([1..Length(P1)-1],i->P1[i+1]-P1[i]);; Print(a); # _Muniru A Asiru_, Dec 23 2018
%Y A053321 Cf. A031924.
%Y A053321 Cf. A053322, A053323, A053324, A053325, A053326, A053327, A053331.
%K A053321 nonn
%O A053321 1,1
%A A053321 _Labos Elemer_, Mar 06 2000