|
|
A065342
|
|
Triangle of sum of two primes: prime(n)+prime(k) with n >= k >= 1.
|
|
6
|
|
|
4, 5, 6, 7, 8, 10, 9, 10, 12, 14, 13, 14, 16, 18, 22, 15, 16, 18, 20, 24, 26, 19, 20, 22, 24, 28, 30, 34, 21, 22, 24, 26, 30, 32, 36, 38, 25, 26, 28, 30, 34, 36, 40, 42, 46, 31, 32, 34, 36, 40, 42, 46, 48, 52, 58, 33, 34, 36, 38, 42, 44, 48, 50, 54, 60, 62, 39, 40, 42, 44, 48
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
T(n, k) = 2*A065305(n, k) [but note different offset].
|
|
EXAMPLE
|
Sequence starts 2+2; 3+2, 3+3; 5+2, 5+3, 5+5; etc. i.e. 4; 5,6; 7,8,10; ...
Triangle begins:
4;
5, 6;
7, 8, 10;
9, 10, 12, 14;
13, 14, 16, 18, 22;
...
|
|
PROG
|
(Haskell)
import Data.List (inits)
a065342 n k = a065342_tabl !! (n-1) !! (k-1)
a065342_row n = a065342_tabl !! (n-1)
a065342_tabl = zipWith (map . (+)) a000040_list $ tail $ inits a000040_list
(PARI) row(n) = vector(n, k, prime(n)+prime(k)); \\ Michel Marcus, Sep 10 2021
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|