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

Author

Reinhard Zumkeller, Feb 22 2015

Keywords

• nonn
• tabf

Examples

			See A255313.
		

Links

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

Crossrefs

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

Programs

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

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 *)