A141674 Triangle T(n,m) read by rows: T(n,m) = sigma_0(n) * A126988(n,m).

1, 4, 2, 6, 0, 2, 12, 6, 0, 3, 10, 0, 0, 0, 2, 24, 12, 8, 0, 0, 4, 14, 0, 0, 0, 0, 0, 2, 32, 16, 0, 8, 0, 0, 0, 4, 27, 0, 9, 0, 0, 0, 0, 0, 3, 40, 20, 0, 0, 8, 0, 0, 0, 0, 4, 22, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 72, 36, 24, 18, 0, 12, 0, 0, 0, 0, 0, 6, 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 56, 28, 0, 0, 0, 0, 8, 0, 0, 0, 0, 0, 0, 4

Offset

1,2

Comments

Row sums are {1, 6, 8, 21, 12, 48, 16, 60, 39, 72}.

Links

G. C. Greubel, Rows n = 1..100 of triangle, flattened

Formula

T(n,m) = sigma_0(n) * A126988(n,m).

T(n,m) = sigma_0(n) * if(m = 1, n, if(n mod m = 0, n/m, 0)).

Example

Triangle begins
  { 1},
  { 4,  2},
  { 6,  0,  2},
  {12,  6,  0,  3},
  {10,  0,  0,  0,  2},
  {24, 12,  8,  0,  0,  4},
  {14,  0,  0,  0,  0,  0,  2},
  {32, 16,  0,  8,  0,  0,  0,  4},
  {27,  0,  9,  0,  0,  0,  0,  0,  3},
  {40, 20,  0,  0,  8,  0,  0,  0,  0,  4}

Mathematica

t[n_, m_] = DivisorSigma[0, n]*If[m == 1, n, If[Mod[n, m] == 0, n/m, 0]]; Table[Table[t[n, m], {m, 1, n}], {n, 1, 10}]; Flatten[%]

Crossrefs

Cf. A126988.

Sequence in context: A180109 A019170 A107504 * A329323 A178394 A266391

Adjacent sequences: A141671 A141672 A141673 * A141675 A141676 A141677

Keyword

nonn,easy,less

Author

Roger L. Bagula and Gary W. Adamson, Sep 06 2008

Extensions

Edited by the Associate Editors of the OEIS, Jun 10 2018

Status

approved