OFFSET
1,2
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[n-k, n+k] // Max;
Table[T[n, k], {n, 1, 13}, {k, 0, n-1}] // Flatten (* Jean-François Alcover, Sep 19 2021 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Reinhard Zumkeller, Mar 20 2005
STATUS
approved