|
|
A086800
|
|
Triangle read by rows in which row n lists differences between prime(n) and prime(k) for 1 <= k <= n.
|
|
5
|
|
|
0, 1, 0, 3, 2, 0, 5, 4, 2, 0, 9, 8, 6, 4, 0, 11, 10, 8, 6, 2, 0, 15, 14, 12, 10, 6, 4, 0, 17, 16, 14, 12, 8, 6, 2, 0, 21, 20, 18, 16, 12, 10, 6, 4, 0, 27, 26, 24, 22, 18, 16, 12, 10, 6, 0, 29, 28, 26, 24, 20, 18, 14, 12, 8, 2, 0, 35, 34, 32, 30, 26, 24, 20, 18, 14, 8, 6, 0
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
COMMENTS
|
Primes in this sequence are of course twin primes.
|
|
LINKS
|
|
|
EXAMPLE
|
2-2=0; 3-2=1, 3-3=0; 5-2=3, 5-3=2, 5=5=5; 7-2=5, 7-3=4, 7-5=2, 7-7=0, ...
0;
1, 0;
3, 2, 0;
5, 4, 2, 0;
9, 8, 6, 4, 0;
11, 10, 8, 6, 2, 0;
15, 14, 12, 10, 6, 4, 0;
17, 16, 14, 12, 8, 6, 2, 0;
|
|
PROG
|
(PARI) fn(n) = forprime(x=2, n, forprime(y=2, x, print1(x-y", ")))
(PARI) T(n, k) = prime(n) - prime(k);
tabl(nn) = for (n=1, nn, for (k=1, n, print1(T(n, k), ", ")); print); \\ Michel Marcus, Aug 08 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|