%I #3 May 01 2014 02:49:32
%S 1,1,2,1,2,7,1,2,3,8,39,1,2,3,9,10,52,311,1,2,3,4,10,11,19,67,68,467,
%T 3268,1,2,3,4,11,12,13,21,84,85,94,669,670,5350,42799,1,2,3,4,5,12,13,
%U 14,23,24,103,104,105,114,205,923,924,934,8304,8305,74734,672605,1,2,3
%N A051851(n)/row_index_of(n).
%e 1; 1, 2; 1, 2, 7; 1, 2, 3, 8, 39; 1, 2, 3, 9, 10, 52, 311;
%p with(combinat); rows_upto_u := proc(u) local a,n; a := []; for n from 1 to u do a := [op(a),op(map(divby, sort(map(list_in_base_b,partition(n),(n+1))), n))]; od; RETURN(a); end;
%Y A subset of A051850 (but note the relative indexing...)
%K easy,nonn
%O 1,3
%A _Antti Karttunen_, Dec 13 1999
|