A255316 Distinct terms in triangle A255313, table read by rows.

3, 3, 5, 3, 5, 7, 5, 7, 5, 7, 11, 5, 7, 11, 13, 3, 5, 7, 11, 13, 3, 5, 7, 11, 13, 17, 3, 5, 7, 11, 13, 17, 19, 5, 7, 11, 13, 17, 19, 5, 7, 11, 13, 17, 19, 23, 5, 7, 11, 13, 17, 19, 23, 3, 7, 11, 13, 17, 19, 23, 3, 7, 11, 13, 17, 19, 23, 29, 3, 7, 11, 13, 17

Offset

1,1

Links

Reinhard Zumkeller, Rows n = 1..150 of triangle, flattened

Example

See A255313.

Mathematica

(* A is A088643 *)
A[n_, 1] := n;
A[n_, k_] := A[n, k] = For[m = n - 1, m >= 1, m--,
     If[PrimeQ[m + A[n, k - 1]] &&
     FreeQ[Table[A[n, j], {j, 1, k - 1}], m], Return[m]]];
T[n_] := T[n] = Union[2 MovingAverage[
     Table[A[n+1, k], {k, 1, n+1}], {1, 1}]];
Array[T, 20] // Flatten (* Jean-François Alcover, Aug 02 2021 *)

Prog

(Haskell)
import Data.List (nub, sort)
a255316 n k = a255316_tabf !! (n-1) !! (k-1)
a255316_row n = a255316_tabf !! (n-1)
a255316_tabf = map (sort . nub) a255313_tabl

Crossrefs

Cf. A255313, A255395 (row lengths), A255427 (row products).

Sequence in context: A185154 A204022 A131832 * A078587 A335074 A239931

Adjacent sequences: A255313 A255314 A255315 * A255317 A255318 A255319

Keyword

nonn,tabf

Author

Reinhard Zumkeller, Feb 22 2015

Status

approved