OFFSET
1
COMMENTS
Row sums see A108954.
EXAMPLE
The triangle begins:
k=1 2 3 4 5 6
n=1: 1;
n=2: 1, 0;
n=3: 0, 1, 0;
n=4: 1, 0, 1, 0;
n=5: 0, 1, 0, 0, 0;
n=6: 1, 0, 0, 0, 1, 0;
and so on.
MATHEMATICA
T[n_, k_] := If[PrimeQ[n + k], 1, 0]; Table[T[n, k], {n, 1, 12}, {k, 1, n}] // Flatten (* Amiram Eldar, Jul 21 2022 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Ctibor O. Zizka, Jul 21 2022
STATUS
approved