A085383 Triangle read by rows, 1 <= k <= n: T(n,k) = floor(n/k)*ceiling(n/k).

1, 4, 1, 9, 2, 1, 16, 4, 2, 1, 25, 6, 2, 2, 1, 36, 9, 4, 2, 2, 1, 49, 12, 6, 2, 2, 2, 1, 64, 16, 6, 4, 2, 2, 2, 1, 81, 20, 9, 6, 2, 2, 2, 2, 1, 100, 25, 12, 6, 4, 2, 2, 2, 2, 1, 121, 30, 12, 6, 6, 2, 2, 2, 2, 2, 1, 144, 36, 16, 9, 6, 4, 2, 2, 2, 2, 2, 1, 169, 42, 20, 12, 6, 6, 2, 2, 2, 2, 2, 2

Offset

1,2

Comments

T(n,1) = A000290(n);

T(n,2) = A002620(n) for n > 1;

T(n,n) = 1.

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

Table[Floor[n/k]Ceiling[n/k], {n, 20}, {k, n}]//Flatten (* Harvey P. Dale, Jan 01 2023 *)

Crossrefs

Cf. A000290, A002620.

Sequence in context: A181859 A218972 A331151 * A365539 A342446 A306744

Adjacent sequences: A085380 A085381 A085382 * A085384 A085385 A085386

Keyword

nonn,tabl

Author

Reinhard Zumkeller, Aug 12 2003

Status

approved