OFFSET
1,2
COMMENTS
For a guide to related sequences, see A204892.
A086800, zeros omitted. - R. J. Mathar, Sep 15 2012
EXAMPLE
a(1) = p(2)-p(1) = 3-2 = 1
a(2) = p(3)-p(1) = 5-2 = 3
a(3) = p(3)-p(2) = 5-3 = 2
a(4) = p(4)-p(1) = 7-2 = 5
a(5) = p(4)-p(2) = 7-3 = 4
a(6) = p(4)-p(3) = 7-5 = 2
From Michel Marcus, May 12 2016: (Start)
As a triangle, first rows are:
1;
3, 2;
5, 4, 2;
9, 8, 6, 4;
11, 10, 8, 6, 2;
(End)
MATHEMATICA
(See the program at A204892.)
With[{prs=Prime[Range[20]]}, Flatten[Table[prs[[n]]-Take[prs, n-1], {n, 2, Length[prs]}]]] (* Harvey P. Dale, Dec 01 2013 *)
PROG
(PARI) tabl(nn) = {for (n=2, nn, for (m=1, n-1, print1(prime(n) - prime(m), ", "); ); print(); ); } \\ Michel Marcus, May 12 2016
CROSSREFS
KEYWORD
AUTHOR
Clark Kimberling, Jan 20 2012
STATUS
approved