A353612 Triangle read by rows: T(n,k) = (n + k) if (n + k) is a prime number, otherwise T(n,k) = 0; n >= 1, k >= 1.

2, 3, 0, 0, 5, 0, 5, 0, 7, 0, 0, 7, 0, 0, 0, 7, 0, 0, 0, 11, 0, 0, 0, 0, 11, 0, 13, 0, 0, 0, 11, 0, 13, 0, 0, 0, 0, 11, 0, 13, 0, 0, 0, 17, 0, 11, 0, 13, 0, 0, 0, 17, 0, 19, 0, 0, 13, 0, 0, 0, 17, 0, 19, 0, 0, 0, 13, 0, 0, 0, 17, 0, 19, 0, 0, 0, 23, 0

Offset

1,1

Comments

Row sums see A341700.

Links

Table of n, a(n) for n=1..78.

Example

The triangle begins:
      k=1  2  3  4  5  6
  n=1:  2;
  n=2:  3, 0;
  n=3:  0, 5, 0;
  n=4:  5, 0, 7, 0;
  n=5:  0, 7, 0, 0, 0;
  n=6:  7, 0, 0, 0, 11, 0;
  and so on.

Mathematica

T[n_, k_] := If[PrimeQ[n + k], n + k, 0]; Table[T[n, k], {n, 1, 12}, {k, 1, n}] // Flatten (* Amiram Eldar, Jul 21 2022 *)

Crossrefs

Cf. A000040, A341700.

Sequence in context: A338780 A213714 A242011 * A368243 A259657 A332672

Adjacent sequences: A353609 A353610 A353611 * A353613 A353614 A353615

Keyword

nonn,tabl

Author

Ctibor O. Zizka, Jul 21 2022

Status

approved