cp's OEIS Frontend

A204890 Ordered differences of primes.

%I A204890 #22 Jun 17 2025 09:22:00
%S A204890 1,3,2,5,4,2,9,8,6,4,11,10,8,6,2,15,14,12,10,6,4,17,16,14,12,8,6,2,21,
%T A204890 20,18,16,12,10,6,4,27,26,24,22,18,16,12,10,6,29,28,26,24,20,18,14,12,
%U A204890 8,2,35,34,32,30,26,24,20,18,14,8,6,39,38,36,34,30,28,24,22
%N A204890 Ordered differences of primes.
%C A204890 For a guide to related sequences, see A204892.
%C A204890 A086800, zeros omitted. - _R. J. Mathar_, Sep 15 2012
%e A204890 a(1) = prime(2)-prime(1) = 3-2 = 1
%e A204890 a(2) = prime(3)-prime(1) = 5-2 = 3
%e A204890 a(3) = prime(3)-prime(2) = 5-3 = 2
%e A204890 a(4) = prime(4)-prime(1) = 7-2 = 5
%e A204890 a(5) = prime(4)-prime(2) = 7-3 = 4
%e A204890 a(6) = prime(4)-prime(3) = 7-5 = 2
%e A204890 From _Michel Marcus_, May 12 2016: (Start)
%e A204890 As a triangle, first rows are:
%e A204890   1;
%e A204890   3, 2;
%e A204890   5, 4, 2;
%e A204890   9, 8, 6, 4;
%e A204890   11, 10, 8, 6, 2; (End)
%t A204890 (See the program at A204892.)
%t A204890 With[{prs=Prime[Range[20]]},Flatten[Table[prs[[n]]-Take[prs,n-1], {n,2,Length[prs]}]]] (* _Harvey P. Dale_, Dec 01 2013 *)
%o A204890 (PARI) tabl(nn) = {for (n=2, nn, for (m=1, n-1, print1(prime(n) - prime(m), ", ");); print(););} \\ _Michel Marcus_, May 12 2016
%Y A204890 Cf. A204892, A090321, A086800.
%K A204890 nonn,tabl,easy
%O A204890 1,2
%A A204890 _Clark Kimberling_, Jan 20 2012