[go: up one dir, main page]

login
A353663
Triangle read by rows: T(n,k) = 1 if n+k is a prime, otherwise T(n,k) = 0; n >= 1, k >= 1.
0
1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1
OFFSET
1
COMMENTS
Row sums see A108954.
FORMULA
T(n,k) = A057427(A353612(n,k)) = signum(A353612(n,k)).
T(n-k,k) = A010051(n).
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