OFFSET
1,2
LINKS
Alois P. Heinz, Rows n = 1..100, flattened
EXAMPLE
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;
MATHEMATICA
Table[Take[Select[n Range[10000], Total[IntegerDigits[#]]==n&], n], {n, 20}] // Flatten (* Harvey P. Dale, Sep 16 2019 *)
CROSSREFS
AUTHOR
Amarnath Murthy, Apr 12 2003
EXTENSIONS
Corrected by Anne Donovan, May 29 2003
Corrected and extended by David Wasserman, Aug 26 2004
STATUS
approved