login
A319073
Square array read by antidiagonals upwards: T(n,k) = k*sigma(n), n >= 1, k >= 1.
4
1, 3, 2, 4, 6, 3, 7, 8, 9, 4, 6, 14, 12, 12, 5, 12, 12, 21, 16, 15, 6, 8, 24, 18, 28, 20, 18, 7, 15, 16, 36, 24, 35, 24, 21, 8, 13, 30, 24, 48, 30, 42, 28, 24, 9, 18, 26, 45, 32, 60, 36, 49, 32, 27, 10, 12, 36, 39, 60, 40, 72, 42, 56, 36, 30, 11, 28, 24, 54, 52, 75, 48, 84, 48, 63, 40, 33, 12
OFFSET
1,2
EXAMPLE
The corner of the square array begins:
A000027: 1, 2, 3, 4, 5, 6, 7, 8, ...
A008585: 3, 6, 9, 12, 15, 18, 21, 24, ...
A008586: 4, 8, 12, 16, 20, 24, 28, 32, ...
A008589: 7, 14, 21, 28, 35, 42, 49, 56, ...
A008588: 6, 12, 18, 24, 30, 36, 42, 48, ...
A008594: 12, 24, 36, 48, 60, 72, 84, 96, ...
A008590: 8, 16, 24, 32, 40, 48, 56, 64, ...
A008597: 15, 30, 45, 60, 75, 90, 105, 120, ...
A008595: 13, 26, 39, 52, 65, 78, 91, 104, ...
A008600: 18, 36, 54, 72, 90, 108, 126, 144, ...
...
MAPLE
with(numtheory): T:=(n, k)->k*sigma(n-k+1): seq(seq(T(n, k), k=1..n), n=1..12); # Muniru A Asiru, Jan 01 2019
MATHEMATICA
Table[k DivisorSigma[1, #] &[m - k + 1], {m, 12}, {k, m}] // Flatten (* Michael De Vlieger, Dec 31 2018 *)
PROG
(GAP) T:=Flat(List([1..12], n->List([1..n], k->k*Sigma(n-k+1))));; Print(T); # Muniru A Asiru, Jan 01 2019
CROSSREFS
Another version of A274824.
Antidiagonal sums give A175254.
Main diagonal gives A064987.
Row n lists the multiples of A000203(n).
Row 1 is A000027.
Initial zeros should be omitted in the following sequences related to the rows of the array:
Rows 6 and 11: A008594.
Rows 7-9: A008590, A008597, A008595.
Rows 10 and 17: A008600.
Rows 12-13: A135628, A008596.
Rows 14, 15 and 23: A008606.
Rows 16 and 25: A135631.
(Note that in the OEIS there are many other sequences that are also rows of this square array.)
Sequence in context: A353659 A246982 A258215 * A129601 A340579 A187566
KEYWORD
nonn,tabl,easy
AUTHOR
Omar E. Pol, Sep 22 2018
STATUS
approved