|
|
A255316
|
|
Distinct terms in triangle A255313, table read by rows.
|
|
6
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
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}]];
|
|
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
|
|
|
KEYWORD
|
nonn,tabf
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|