OFFSET
0,3
COMMENTS
LINKS
Reinhard Zumkeller, Rows n = 0..8 of table, flattened
EXAMPLE
The triangle begins:
. 0: 0
. 1: 1
. 2: 2,11
. 3: 3,12,21,30,102,111
. 4: 4,13,22,31,40,103,112,121,130,202, . . . ,1021,1030,1102,1111
. 5: 5,14,23,32,41,50,104,113,122,131, . . . ,11021,11030,11102,11111 .
MATHEMATICA
Join[{0}, Flatten[Table[Select[Range[FromDigits[PadRight[{}, n, 1]]], Total[ IntegerDigits[ #]] == n&], {n, 5}]]] (* Harvey P. Dale, Oct 08 2019 *)
PROG
(Haskell)
a242614 n k = a242614_row n !! (k-1)
a242614_row n = filter ((== n) . a007953) [n .. a002275 n]
a242614_tabf = map a242614_row [0..]
CROSSREFS
KEYWORD
nonn,tabf,base
AUTHOR
Reinhard Zumkeller, Jul 16 2014
STATUS
approved