login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A127446 Triangle T(n,k) = n*A051731(n,k) read by rows. 5
1, 2, 2, 3, 0, 3, 4, 4, 0, 4, 5, 0, 0, 0, 5, 6, 6, 6, 0, 0, 6, 7, 0, 0, 0, 0, 0, 7, 8, 8, 0, 8, 0, 0, 0, 8, 9, 0, 9, 0, 0, 0, 0, 0, 9, 10, 10, 0, 0, 10, 0, 0, 0, 0, 10, 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 11, 12, 12, 12, 12, 0, 12, 0, 0, 0, 0, 0, 12, 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 13, 14, 14, 0, 0, 0, 0, 14 (list; table; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

Replace the 1's in row n of A051731 with n's.

T(n,k) is the sum of the k's in the partitions of n into equal parts. - Omar E. Pol, Nov 25 2019

LINKS

Reinhard Zumkeller, Rows n = 1..125 of triangle, flattened

FORMULA

T(n,k) = k*A126988(n,k). - Omar E. Pol, Nov 25 2019

EXAMPLE

First few rows of the triangle:

  1;

  2, 2;

  3, 0, 3;

  4, 4, 0, 4;

  5, 0, 0, 0, 5;

  6, 6, 6, 0, 0, 6;

  7, 0, 0, 0, 0, 0, 7;

  ...

For n = 6 the partitions of 6 into equal parts are [6], [3,3], [2,2,2], [1,1,1,1,1,1], so the sum of the k's are [6, 6, 6, 0, 0, 6] respectively, equaling the 6th row of triangle. - Omar E. Pol, Nov 25 2019

MAPLE

A127446 := proc(n, k) if n mod k = 0 then n; else 0; fi; end: for n from 1 to 20 do for k from 1 to n do printf("%d, ", A127446(n, k)) ; od: od: # R. J. Mathar, May 08 2009

MATHEMATICA

Flatten[Table[If[Mod[n, k] == 0, n, 0], {n, 20}, {k, n}]] (* Vincenzo Librandi, Nov 02 2016 *)

PROG

(Haskell)

a127446 n k = a127446_tabl !! (n-1) !! (k-1)

a127446_row n = a127446_tabl !! (n-1)

a127446_tabl = zipWith (\v ws -> map (* v) ws) [1..] a051731_tabl

-- Reinhard Zumkeller, Jan 21 2014

CROSSREFS

Cf. A038040 (row sums), A051731, A126988, A244051, A328362.

Sequence in context: A319929 A129234 A213081 * A046157 A035167 A071448

Adjacent sequences:  A127443 A127444 A127445 * A127447 A127448 A127449

KEYWORD

nonn,tabl,easy

AUTHOR

Gary W. Adamson, Jan 14 2007

EXTENSIONS

Edited and extended by R. J. Mathar, May 08 2009

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 23 13:59 EDT 2021. Contains 345402 sequences. (Running on oeis4.)