|
%I #4 Nov 30 2015 11:53:12
%S 0,0,1,0,1,2,0,1,2,3,0,1,2,3,4,0,1,2,3,4,5,0,1,2,3,4,5,6,0,1,2,3,4,5,
%T 6,7,0,1,2,3,4,5,6,7,8,0,1,2,3,4,5,6,7,8,9,0,0,1,1,2,3,4,5,6,7,8,9,0,
%U 0,1,1,1,1,2,3,4,5,6,7,8,9,0,0,1,1,1,1,1,2,2,3,4,5,6,7,8,9,0,0,1,1,1,1,1,1
%N Table read by rows where row n contains the sorted digits of the integers 0 through n.
%C A037123(n) is the sum of the terms in row n.
%e Row 10, the sorted digits of 0 through 10, is 0, 0, 1, 1, 2, 3, 4, 5, 6, 7, 8, 9.
%t Flatten[Table[Sort[Flatten[IntegerDigits/@Range[0,n]]],{n,0,15}]] (* _Harvey P. Dale_, Nov 30 2015 *)
%Y Cf. A037123.
%K base,easy,nonn,tabf
%O 0,6
%A _Rick L. Shepherd_, Oct 12 2009
|
