%I
%S 1,3,3,6,3,4,10,7,4,7,15,7,4,7,6,21,13,10,7,6,12,28,13,10,7,6,12,8,36,
%T 21,10,15,6,12,8,15,45,21,19,15,6,12,8,15,13,55,31,19,15,16,12,8,15,
%U 13,18,66,31,19,15,16,12,8,15,13,18,12,78,43,31,27,16,24,8,15,13,18,12,28
%N T(n, k) = Sum(divisors(k) union {k*j : j = 2..floor(n/k)}). Triangle read by rows.
%C For the connection with paths in the divisor graph of {1,...,n} see the comment in A339492.
%e The triangle starts:
%e [1] 1;
%e [2] 3, 3;
%e [3] 6, 3, 4;
%e [4] 10, 7, 4, 7;
%e [5] 15, 7, 4, 7, 6;
%e [6] 21, 13, 10, 7, 6, 12;
%e [7] 28, 13, 10, 7, 6, 12, 8;
%e [8] 36, 21, 10, 15, 6, 12, 8, 15;
%e [9] 45, 21, 19, 15, 6, 12, 8, 15, 13;
%e [10] 55, 31, 19, 15, 16, 12, 8, 15, 13, 18.
%p t := (n, k) > NumberTheory:Divisors(k) union {seq(k*j,j=2..n/k)}:
%p T := (n, k) > add(j, j = t(n, k)):
%p for n from 1 to 10 do seq(T(n, k), k=1..n) od;
%Y T(n, 1) = A000217(n), T(n, n) = A000203(n), T(2n, n) = A224880(n).
%Y Cf. A339491, A339492, A339489.
%K nonn,tabl
%O 1,2
%A _Peter Luschny_, Dec 31 2020
