cp's OEIS Frontend

A136527 Triangle read by rows: T(n,k) = greatest common divisor of n-th and k-th composite number, 1<=k<=n.

%I A136527 #7 Nov 15 2021 04:37:20
%S A136527 4,2,6,4,2,8,1,3,1,9,2,2,2,1,10,4,6,4,3,2,12,2,2,2,1,2,2,14,1,3,1,3,5,
%T A136527 3,1,15,4,2,8,1,2,4,2,1,16,2,6,2,9,2,6,2,3,2,18,4,2,4,1,10,4,2,5,4,2,
%U A136527 20,1,3,1,3,1,3,7,3,1,3,1,21,2,2,2,1,2,2,2,1,2,2,2,1,22,4,6,8,3,2,12,2,3,8,6,4,3,2,24
%N A136527 Triangle read by rows: T(n,k) = greatest common divisor of n-th and k-th composite number, 1<=k<=n.
%F A136527 T(n,k) = A050873(A002808(n),A002808(k));
%F A136527 A073783(n) = T(n-1,n) for n>1;
%F A136527 A002808(n) = T(n,n).
%e A136527 4;
%e A136527 2, 6;
%e A136527 4, 2, 8;
%e A136527 1, 3, 1, 9;
%e A136527 2, 2, 2, 1, 10;
%e A136527 ...
%t A136527 nmax = 14;
%t A136527 A002808 = Select[Range[FindRoot[n == nmax + PrimePi[n] + 1, {n, nmax, 2nmax}][[1, 2]] // Ceiling], CompositeQ];
%t A136527 T[n_, k_] := GCD[A002808[[n]], A002808[[k]]];
%t A136527 Table[T[n, k], {n, 1, nmax}, {k, 1, n}] // Flatten (* _Jean-François Alcover_, Nov 15 2021 *)
%Y A136527 Cf. A002808, A050873, A073783.
%K A136527 nonn,tabl
%O A136527 1,1
%A A136527 _Reinhard Zumkeller_, Jan 03 2008