A082259 Triangle read by rows in which the n-th row contains n multiples of n with digit sum n.
1, 2, 20, 3, 12, 21, 4, 40, 112, 220, 5, 50, 140, 230, 320, 6, 24, 42, 60, 114, 132, 7, 70, 133, 322, 511, 700, 1015, 8, 80, 152, 224, 440, 512, 800, 1016, 9, 18, 27, 36, 45, 54, 63, 72, 81, 190, 280, 370, 460, 550, 640, 730, 820, 910, 1090, 209, 308, 407, 506, 605, 704, 803, 902, 2090, 3080, 4070
Offset: 1
Examples
Triangle begins: 1 2, 20; 3, 12, 21; 4, 40, 112, 220; 5, 50, 140, 230, 320; 6, 24, 42, 60, 114, 132; 7, 70, 133, 322, 511, 700, 1015; 8, 80, 152, 224, 440, 512, 800, 1016; 9, 18, 27, 36, 45, 54, 63, 72, 81;
Links
- Alois P. Heinz, Rows n = 1..100, flattened
Programs
-
Mathematica
Table[Take[Select[n Range[10000],Total[IntegerDigits[#]]==n&],n],{n,20}] // Flatten (* Harvey P. Dale, Sep 16 2019 *)
Extensions
Corrected by Anne Donovan, May 29 2003
Corrected and extended by David Wasserman, Aug 26 2004