A103359 - OEIS

%I #7 Sep 19 2021 08:05:30

%S 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,

%T 11,13,13,13,3,5,11,11,13,13,13,13,17,5,11,11,13,13,13,13,17,17,19,11,

%U 11,13,13,13,13,17,17,19,19,19,3,13,13,13,13,17,17,19,19,19,19,23,13,13

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

%C T(n,0) = A006530(n); T(n,1) = A093074(n) for n>1;

%C T(n,n-1) = A060265(n) for n>1.

%e Triangle begins:

%e 1;

%e 2, 3;

%e 3, 3, 5;

%e 2, 5, 5, 7;

%e 5, 5, 7, 7, 7;

%e ...

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

%t Table[T[n, k], {n, 1, 13}, {k, 0, n-1}] // Flatten (* _Jean-François Alcover_, Sep 19 2021 *)

%K nonn,tabl

%O 1,2

%A _Reinhard Zumkeller_, Mar 20 2005