

A103359


T(n,k) = Max{p: prime p divides m where nk<=m<=n+k}, triangle read by rows: 0<=k<n.


1



1, 2, 3, 3, 3, 5, 2, 5, 5, 7, 5, 5, 7, 7, 7, 3, 7, 7, 7, 7, 11, 7, 7, 7, 7, 11, 11, 13, 2, 7, 7, 11, 11, 13, 13, 13, 3, 5, 11, 11, 13, 13, 13, 13, 17, 5, 11, 11, 13, 13, 13, 13, 17, 17, 19, 11, 11, 13, 13, 13, 13, 17, 17, 19, 19, 19, 3, 13, 13, 13, 13, 17, 17, 19, 19, 19, 19, 23, 13, 13
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


COMMENTS



LINKS



EXAMPLE

Triangle begins:
1;
2, 3;
3, 3, 5;
2, 5, 5, 7;
5, 5, 7, 7, 7;
...


MATHEMATICA

T[n_, k_] := FactorInteger[#][[1, 1]]& /@ Range[nk, n+k] // Max;


CROSSREFS



KEYWORD



AUTHOR



STATUS

approved



