This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A051850 #6 Oct 27 2018 21:56:27 %S A051850 1,1,2,1,2,3,7,1,2,3,4,8,9,14,39,1,2,3,4,5,9,10,11,16,17,23,52,53,59, %T A051850 95,311,1,2,3,4,5,6,10,11,12,13,18,19,20,26,27,34,67,68,69,75,76,83, %U A051850 124,125,132,181,467,468,475,524,867,3268,1,2,3,4,5,6,7,11,12,13,14,15 %N A051850 a(n) = A051849(n)/floor(log_2(n)+1). %e A051850 n-th row has length 2^(n-1) (A000079[n-1]) 1; 1,2; 1,2,3,7; 1,2,3,4,8,9,14,39; 1,2,3,4,5,9,10,11,16,17,23,52,53,59,95,311; %p A051850 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,map(op,map(permute,partition(n))),(n+1))), n))]; od; RETURN(a); end; divby := (n,d) -> n/d; %K A051850 easy,nonn,tabf %O A051850 1,3 %A A051850 _Antti Karttunen_, Dec 13 1999