cp's OEIS Frontend

A242614 Triangle read by rows: row n contains numbers with sum of digits = n, and not greater than the n-th repunit (cf. A007953 and A002275).

%I A242614 #7 Oct 08 2019 11:13:55
%S A242614 0,1,2,11,3,12,21,30,102,111,4,13,22,31,40,103,112,121,130,202,211,
%T A242614 220,301,310,400,1003,1012,1021,1030,1102,1111,5,14,23,32,41,50,104,
%U A242614 113,122,131,140,203,212,221,230,302,311,320,401,410,500,1004,1013,1022
%N A242614 Triangle read by rows: row n contains numbers with sum of digits = n, and not greater than the n-th repunit (cf. A007953 and A002275).
%C A242614 Number of terms in row n = A242622(n);
%C A242614 T(n,1) = A051885(n);
%C A242614 T(n,A242622(n)) = A002275(n);
%C A242614 for n > 0: number of repdigit terms in row n = A242627(n).
%H A242614 Reinhard Zumkeller, <a href="/A242614/b242614.txt">Rows n = 0..8 of table, flattened</a>
%e A242614 The triangle begins:
%e A242614 . 0:  0
%e A242614 . 1:  1
%e A242614 . 2:  2,11
%e A242614 . 3:  3,12,21,30,102,111
%e A242614 . 4:  4,13,22,31,40,103,112,121,130,202, . . . ,1021,1030,1102,1111
%e A242614 . 5:  5,14,23,32,41,50,104,113,122,131, . . . ,11021,11030,11102,11111 .
%t A242614 Join[{0},Flatten[Table[Select[Range[FromDigits[PadRight[{},n,1]]], Total[ IntegerDigits[ #]] == n&],{n,5}]]] (* _Harvey P. Dale_, Oct 08 2019 *)
%o A242614 (Haskell)
%o A242614 a242614 n k = a242614_row n !! (k-1)
%o A242614 a242614_row n = filter ((== n) . a007953) [n .. a002275 n]
%o A242614 a242614_tabf = map a242614_row [0..]
%Y A242614 Cf. A007953 (sum of digits), A002275 (repunits).
%Y A242614 Cf. A011557, A052216, A052217, A052218, A052219, A052220, A052221, A052222, A052223, A052224, A166311, A235151, A143164, A235225, A235226, A235227, A166370, A235228, A166459, A235229.
%K A242614 nonn,tabf,base
%O A242614 0,3
%A A242614 _Reinhard Zumkeller_, Jul 16 2014