login

Revision History for A110662

(Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
Triangle read by rows: T(n,k) is the sum of the sums of divisors of k, k+1, ..., n (1 <= k <= n).
(history; published version)
#24 by Jon E. Schoenfield at Mon Feb 07 03:45:34 EST 2022
STATUS

reviewed

approved

#23 by Joerg Arndt at Mon Feb 07 02:49:26 EST 2022
STATUS

proposed

reviewed

#22 by Michel Marcus at Mon Feb 07 00:35:05 EST 2022
STATUS

editing

proposed

#21 by Michel Marcus at Mon Feb 07 00:34:54 EST 2022
COMMENTS

T(n,n) = sigma(n) = A000203(n) = sum of divisors of n.

T(n,1) = Sum_{j=1..n} sigma(j) = A024916(n).

Row sums = A143128: (1, 7, 19, 47, 77, ...) - Gary W. Adamson, Jul 26 2008

FORMULA

T(n, n) = sigma(n) = A000203(n) = sum of divisors of n.

T(n, 1) = Sum_{j=1..n} sigma(j) = A024916(n).

STATUS

proposed

editing

#20 by Jon E. Schoenfield at Mon Feb 07 00:11:40 EST 2022
STATUS

editing

proposed

#19 by Jon E. Schoenfield at Mon Feb 07 00:11:38 EST 2022
NAME

Triangle read by rows: T(n,k) = is the sum of the sums of divisors of k, k+1, ..., n (1 <= k <= n).

COMMENTS

T(n,n) = sigma(n) = A000203(n) = sum of divisors of n. T(n,1)=sum_{j=1..n} sigma(j) = A024916(n).

T(n,1) = Sum_{j=1..n} sigma(j) = A024916(n).

Equals A000012 * (A000203 * 0^(n-k)) * A000012, 1 <= k <= n. - Gary W. Adamson, Jul 26 2008

Row sums = A143128: (1, 7, 19, 47, 77, ...) - Gary W. Adamson, Jul 26 2008

FORMULA

T(n, k) = Sum_{j=sum(k..n} sigma(j), j=k..n), where sigma(j) is the sum of the divisors of j.

EXAMPLE

1;

4, 3;

8, 7, 4;

15, 14, 11, 7;

21, 20, 17, 13, 6;

...

STATUS

approved

editing

#18 by Bruno Berselli at Sun Sep 03 17:14:09 EDT 2017
STATUS

reviewed

approved

#17 by Joerg Arndt at Sun Sep 03 03:39:21 EDT 2017
STATUS

proposed

reviewed

#16 by G. C. Greubel at Sun Sep 03 02:20:57 EDT 2017
STATUS

editing

proposed

#15 by G. C. Greubel at Sun Sep 03 02:20:50 EDT 2017
MATHEMATICA

T[n_, n_] := DivisorSigma[1, n]; T[n_, k_] := Sum[DivisorSigma[1, j], {j, k, n}]; Table[T[n, k], {n, 1, 10}, {k, 1, n}] // Flatten (* G. C. Greubel, Sep 03 2017 *)

STATUS

approved

editing